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Introduccion 

Este libro pretende enseriarle algunas de las tecnicas de programacion grafica 
que podra usar en su ordenador Amstrad. Hay capitulos que tratan de ani- 
macion, con caracteres o con dibujos, de realizacion de graficos y de histogramas, 
de formas geometricas y de otras muchas cosas. 

Cada capitulo contiene una serie de programas de ejemplo, muchos de los 
cuales le seran de gran utilidad. Asi, el capitulo 2 contiene un programa que 
permite diseriar caracteres propios y archivarlos en cinta; el capitulo 3 contiene 
programas para realizar diagramas de barras y de sectores; el 4 y el 6, programas 
para la realizacion de dibujos en la pantalla y su almacenamiento en cinta. 

Se suponen conocimientos elementales de BASIC, con algo de manejo de 
bucles, decisiones condicionales y subrutinas. Aunque los principiantes dis- 
frutaran comprobando los programas escritos en el libro, sacaran mayor 
provecho si leen antes otro libro del que soy autor: 'Programacion Basic con 
Amstrad', tambien publicado por Amstrad Esparia. 

Para los que ya conocen BASIC pero no han leido mi otro libro, comienzo por 
resumir en el capitulo 1 lo mas interesante de lo que toca a los comandos graficos 
del Amstrad. 
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1. Modos y colores 

LA PANTALLA 

En la vida real existen distintos tipos de papel para las diferentes actividades. Un 
arquitecto no dibuja en una libreta los pianos de las casas, de la misma manera 
que no es usual que un novelista escriba sus historias en papel de dibujo. En el 
ordenador, la pantalla es lo que se utiliza como papel, y es normal que tenga 
aspecto y textura diferentes cuando se la utiliza para misiones diversas. 

El comando MODE, seguido del numero 0, 1 o 2, sirve para seleccionar uno de 
los tres aspectos posibles de la pantalla del Amstrad. Cada modo se distingue por 
el numero de caracteres que admite en cada linea, por la cantidad de colores que 
permite utilizar simultaneamente y por el grado de resolucion grafica (o sea, la 
finura con la que se pueden dibujar las lineas). 



Modo Numero de lineas 




1 

2 



25 
25 
25 



Caracteres por 
linea 

20 

40 

80 



Figura 1.1. Los tres modos de la pantalla del Amstrad. 

El modo 2 es el ideal para tener en pantalla gran cantidad de texto; en este 
modo, el Amstrad permite 25 lineas de 80 caracteres cada una. 

Cuando se enciende o se inicializa el Amstrad, la pantalla se pone auto- 
maticamente en el modo 1. Este modo da 25 lineas de 40 caracteres. El modo 1 
proporciona la escritura mas legible; es el habitual cuando se estan utilizando los 
comandos del Amstrad. 

El modo da 25 lineas con solo 20 caracteres cada una. Es el mejor para 
realizar figuras en color, ya que admite 16 colores simultaneos. 

En cualquiera de los tres modos, se puede escribir en cualquier posicion de la 
pantalla utilizando coordenadas de texto: 

10 MODE 1 

15 PRINT "Escribir comenzando en (10,12)." 

20 LOCATE 10,12 

30 PRINT "Aqui es" 



La posicion del primer caracter que se escriba sera (10, 12). Los numeros 10 y 12 
son las coordenadas de texto de la posicion. La primera es la coordenada X (la 
posicion del caracter en la linea) y la segunda la coordenada Y (la linea en la que 
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esta el caracter, empezando a contar desde arriba). La instruccion LOCATE 10,12 
es la que hace que comience la escritura en dicha posicion. Se puede usar el 
comando CLS para borrar la pantalla despues de ejecutar el programa. 



Escribir conenzando en (IOjIS) 



Seady 



Aqui es 



Los numeros que se pueden utilizar como coordenada X de texto difieren en los 
diferentes modos de la pantalla, puesto que el numero de caracteres por linea es 
distinto en cada uno de ellos. 





1 


i 




39 40 


1 












2 




















24 












25 













Figura 1.2. La pantalla en mode- 1 



Si tuviesemos que limitarnos a escribir simbolos en las posiciones de ca- 
racteres de la pantalla, las posibilidades de realizar graficas aceptables serian 
muy limitadas. Las 25 lineas de 80 caracteres del modo 2 no permiten mas que 
resultados muy pobres a la hora de realizar dibujos a base de caracteres. 
Afortunadamente, cada posicion correspondiente a un caracter puede dividirse en 
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pequerios trozos; cada uno de ellos es un punto (o pixel). 

Dibujando a base de puntos individuates, en lugar de caracteres, se pueden 
trazar lineas bastante finas. El tamano de los puntos depende del mode- de 
pantalla, de la misma manera que era variable el numero de caracteres por linea 
y el tamano de cada caracter. 

El sistema de coordenadas de texto no es adecuado para describir la posicion 
de un punto, ya que cada posicion de caracter abarca varios puntos. El Amstrad 
usa un sistema de coordenadas diferente para las posiciones de los puntos; se 
trata de las coordenadas graficas. 



La pantalla grafica 

El sistema de coordenadas graficas funciona de manera diferente del de las 
coordenadas de texto. La pantalla grafica esta dividida horizontalmente en 640 
puntos y verticalmente en 400. La posicion de cada punto se identifica por su 
distancia a los bordes izquierdo e inferior de la pantalla. 



3B9 



300 




Figura 1.3. La pantalla grafica; se muestra el punto (200, 300). 



La posicion del punto de la figura 1.3 es (200, 300). Observe que la segunda 
coordenada se mide desde el borde inferior de la pantalla, y que el punto de la 
esquina inferior izquierda de la pantalla tiene coordenadas graficas (0, 0). Al 
principio esto puede resultar algo dificil de recordar ya que, para las coordenadas 
de texto, es el caracter superior izquierdo de la pantalla el que tiene coordenadas 
(1, 1). Observe ademas que las coordenadas graficas comienzan a partir de 0, de 
manera que el punto de la esquina superior derecha de la pantalla tiene por 
coordenadas graficas (639, 399), no (640, 400) como tambien cabria pensar. 

El programa siguiente muestra el uso de dos de los comandos graficos del 
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Amstrad: 

10 MODE 1 
20 MOVE 124,156 
30 DRAW 300,300 
40 DRAW 200,400 
50 DRAW 124,156 

Con el utilizamos el cursor grafico para dibujar lineas en la pantalla. 

Normalmente el cursor grafico y el de texto permanecen juntos, pero, en 
cuanto se utiliza un comando grafico, se esta usando el cursor grafico (invisible). 

El comando MOVE de la linea 20 hace que el cursor grafico se coloque en el 
punto (124, 156), aunque permanece siempre invisible. El comando DRAW lleva 
el cursor desde el punto (124, 156) hasta el (300, 300), dibujando una recta entre 
ambos. Los otros dos DRAW de las lineas 40 y 50 dibujan los dos lados restantes 
de un triangulo. 




Asi pues, MOVE x,y lleva el cursor grafico al punto (x, y) sin dibujar ninguna 
linea. DRAW x,y, en cambio, dibuja una recta desde el ultimo punto visitado por 
el cursor grafico hasta el punto (x, y). Es sencillo dibujar figuras de cierta 
complejidad almacenando las coordenadas x e y de los puntos en sentencias 
DATA y haciendo que el programa vaya leyendo estas coordenadas: 



10 MODE 
20 x=l 

29 REM dibujo 

30 WHILE x>0 
40 READ x,y 
50 READ xl.yl 
60 MOVE x,y 



a base de MOVE y DRAW 



Tecnicas de programacion de grdficos en el Amstrad, rev 2009 (0.90 preliminar) 

70 DRAW xl.yl 

80 LOCATE 1,24:PRINT x;" ";y; :r$="" :WHILE r$="": r$=INKEY$:WEND 

90 WEND 

100 END 

110 DATA 308,162,344,174,344,174,360,216,360,216,364,260,364,260,360,310 

120 DATA 360,310,336,344,336,344,292,356,292,356,248,352,248,352,212,342 

130 DATA 212,342,200,316,200,316,196,246,196,246,200,214,200,214,216,174 

140 DATA 216,174,252,166,316,198,300,190,300,190,272,190 

150 DATA 272,190,256,198,244,200,244,210,244,204,324,204,324,208,324,198 

160 DATA 256,238,268,232,268,232,288,232,288,232,296,242,276,242,276,284 

170 DATA 288,284,300,296,300,296,324,286,324,286,288,282,264,282,252,294 

180 DATA 252,294,232,280,232,280,264,280,196,280,180,296,180,296,172,266 

190 DATA 172,266,192,236,364,236,384,266,384,266,380,294,380,294,364,282 

200 DATA 320,348,332,324,312,324,312,352,288,354,292,326,272,354,280,326,264,348 

210 DATA 

224,344,216,334,264,344,268,228,268,218,272,216,272,230,276,228,276,214,280,214, 

280,230,280,230,284,212 

220 DATA 288,212,284,230,288,228,288,220 

230 DATA -1,-1,-1,-1 




Es posible conseguir efectos graficos bastante impresionantes con solo las 
sentencias MOVE y DRAW. Para conseguir curvas, se utilizan rectas de pequena 
longitud empalmadas sucesivamente. 

1 MODE 2 

10 x=100:y=100 

20 maximo=300 

30 incremented 10 

40 FOR numero=0 TO maximo STEP incremento 

50 MOVE x+numero,y 

60 DRAW x+maximo,y+numero 

70 MOVE x,y+numero 

80 DRAW x+niimero,y+maximo 



10 
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90 NEXT 




Resolucion en los diferentes modos de pantalla 

Aunque la pantalla grafica esta dividida horizontalmente en 640 puntos y 
verticalmente en 400, el Amstrad no puede discriminar realmente todos esos 
puntos. Ademas, el poder de discriminacion de puntos depende del modo de 
pantalla, aunque todos los modos utilicen la misma pantalla grafica. Ejecute el 
programa anterior cambiando la linea 1 por la siguiente: 

1 MODE 

El dibujo es el mismo de antes, pero resulta mas basto porque las lineas son 
mas gruesas. Pruebe ahora el siguiente programa: 



10 MODE 
20 MOVE 
30 DRAW 
40 MOVE 
50 DRAW 
60 MOVE 
70 DRAW 
80 MOVE 
90 DRAW 



200,300 

200,399 

201,200 

201,399 

202,100 

202,399 

203,0 

203,399 



n 
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Las lineas son ahora mucho mas finas. El modo 2 es el denominado modo de 
alta resolution, ya que permite distinguir 640 puntos en horizontal y 200 en 
vertical; por eso resultan tan finas las lineas cuando se utiliza DRAW en este 
modo. 

En el modo 2 no se pueden distinguir en vertical dos puntos consecutivos; los 
puntos (10, 10) y (10, 11) son exactamente el mismo punto. Los modos 1 y 
tienen en vertical la misma resolucion de 200 puntos que el modo 2, pero bajan 
mucho en resolucion horizontal. Escriba lo siguiente: 

10 MODE 1 

y ejecute el programa. El modo 1 es el de media resolution, solo permite distinguir 
horizontalmente 320 puntos. Esto hace que, en modo 1, los puntos (200, 300) y 
(201, 300) sean tratados como si fuesen un mismo punto. Escriba ahora: 

10 MODE 

y ejecute el programa por tercera vez. El modo es el de baja resolucion, pues 
solo puede distinguir 160 puntos en horizontal. 

Puede producirle extraheza el hecho de que alguien elija realizar los dibujos en 
el modo mas basto, cuando es posible la alta resolucion del modo 2. La razon es 
que, aunque el modo da la menor resolucion, permite en cambio utilizar 16 
colores simultaneos en la pantalla. En este aspecto son inferiores los modos 1 y 
2, como muestra la figura 1.4. 



12 
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Modo 


Resolucion grafica 


Numero de colores simultaneos 



1 
2 


160x200 
320x200 
640 x 200 


2 
4 
16 



Figura 1.4. Resolucion grafica y numero de colores disponibles simultaneamente en los diferentes 

modos de pantalla. 

El ordenador tiene una capacidad de memoria limitada: solo puede almacenar 
en la RAM una cierta cantidad de informacion sobre la pantalla. Se trata 
entonces de llegar a un compromiso, como en tantos otros aspectos de la 
informatica. Se puede utilizar la RAM para guardar informacion sobre muchos 
puntos con 2 colores posibles, o de menos puntos con 4 colores, o de muchos 
menos puntos con 16 colores. El Amstrad le da a elegir; usted debe escoger lo que 
mas le interese en cada caso. 



La sentencia PLOT 

Las lineas que hemos dibujado en los programas precedentes estan formadas por 
puntos. El Amstrad puede dibujar los puntos uno por uno, si bien en modo 2 es 
dificil distinguir puntos aislados. De hecho, cada punto esta realmente formado 
por varios puntos fisicos de la pantalla; ninguno de los modos es lo 
suficientemente fino como para identificar un solo punto de pantalla. Lo que 
nosotros denominamos punto es el menor bloque de puntos de la pantalla que es 
posible singularizar en cada uno de los modos. 



Mrioo 



Modal 



Modo 2 




punto 4x2 



punto 2x2 



punto 1 x2 



Figura 1.5. Tamano de los puntos graficos en cada modo de pantalla 
Parece raro permitir que el sistema de coordenadas identifique mas puntos de 
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los que pueden ser dibujados en cualquiera de los modos. La razon principal para 
ello es que asi queda abierta la posibilidad de mejorar en el future- la resolucion 
grafica sin que haya que cambiar completamente el sistema de coordenadas. 

La instruccion PLOT sirve para dibujar un punto aislado. Funciona de la 
misma manera que MOVE o DRAW; la palabra PLOT debe ir seguida de las 
coordenadas graficas del punto que se desea dibujar. El siguiente programa 
dibuja seis puntos distintos: 



10 


MODE 





20 


PLOT 


160,200 


30 


PLOT 


320,200 


40 


PLOT 


324,200 


50 


PLOT 


328,200 


60 


PLOT 


332,200 


70 


PLOT 


480,200 



entre las lineas 30 si 60 puedan unidos formando un pequeno segmento de recta. 
En modo 1 los mismos puntos quedan separados. En modo 2, los puntos son tan 
pequenos que le resultara dificil distinguirlos. 

LOS COLORES 

Al encender el Amstrad, el texto y los graficos aparecen en color amarillo sobre 
fondo azul, independientemente del modo en el que se trabaje. En realidad, se 
dispone de 27 colores diferentes, no todos ellos perfectamente distinguibles unos 
de otros. Cada color tiene asignado un numero; para referirse a un color se utiliza 
siempre ese numero en lugar del nombre del color. 



Numero 


Color 





Negro 


1 


Azul 


2 


Azul intenso 


3 


Rojo 


4 


Magenta (rojo + azul) 


5 


Malva 


6 


Rojo intenso 


7 


Morado 


8 


Magenta intenso 


9 


Verde 


10 


Cyan 


11 


Azul celeste 
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12 


Amarillo 


13 


Blanco 


14 


Azul pastel 


15 


Naranja 


16 


Rosa 


17 


Magenta pastel 


18 


Verde intenso 


19 


Verde marino 


20 


Cyan intenso 


21 


Verde lima 


22 


Verde pastel 


23 


Cyan pastel 


24 


Amarillo intenso (dorado) 


25 


Amarillo pastel 


26 


Blanco intenso 



Figura 1.6. Los 27 colores del Amstrad con sus numeros de identificacion. 



Conviene ahora advertir que el Amstrad no trabaja sobre toda la pantalla, sino 
sobre un gran rectangulo de la misma. Este rectangulo esta rodeado por un borde 
que no se utiliza. Al encender el ordenador, el borde esta del mismo color que el 
fondo de la pantalla. Este borde no forma parte de la memoria del ordenador, ya 
que no se escribe ni se dibuja nunca en el. 




El borde pueda sor d* eualqutar 

color on cuakquier rrwdo. 



Los colores qua se u*an an of im 
de tBxtp dependen del modo de 
pontaHs. 



Figura 1.7. El borde de la pantalla en su monitor o televisor. 
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El borde puede tener cualquier color en cualquier modo. No existen 
restricciones sobre el color que se emplee para el borde. El modo 2 solo puede 
utilizar dos colores en la pantalla, pero en cambio el borde puede tomar cualquier 
otro color (de los 27 disponibles). Ejecute las instrucciones: 

10 MODE 2 
20 BORDER 

Segun la figura 1.6 el es el numero del color negro. Al ejecutar BORDER 
hemos teriido de negro el borde de la pantalla. Se puede cambiar el por otros 
numeros, entre y 26, para probar el efecto de distintos colores del borde. Por 
ejemplo, BORDER 26 pone el borde de bianco. 

En los modos y 1 el borde funciona de la misma manera. Como se puede 
observar, el cambio de modo de pantalla no modifica el color del borde. Al 
encender el ordenador el borde se pone automaticamente de color azul, como con 
BORDER 1. 



PEN y PAPER 

Tambien se puede cambiar los colores que se utilizan en el rectangulo principal 
de la pantalla. Pero aqui interviene la cantidad de memoria que se utiliza en el 
almacenamiento de la pantalla a la hora de restringir el numero de colores que 
pueden ser utilizados simultaneamente. 

Vamos a ver cual es la situacion al encender el ordenador. Mas adelante 
veremos como se puede cambiar esta situacion con el comando INK. 

Comenzaremos por hacer algun ensayo. Escriba MODE y PEN 4. Como "pen" 
significa pluma y el 4 es el numero del color magenta, cabria esperar que el texto 
fuese en adelante de este color. Sin embargo, todo lo que se escriba de ahora en 
adelante sera de color bianco. Si se teclea PEN 5, la pluma comienza a escribir en 
negro. Finalmente, si se teclea PEN 14 el texto que se escriba quedara 
parpadeando entre los colores amarillo y azul. 

Lo que ocurre es que en modo hay 16 tintas disponibles; la instruction PEN 
lo que hace es cargar la pluma con una de esas tintas. La figura 1.8 indica de que 
colores son inicialmente las 16 tintas en el momento de encender el ordenador. 
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Niimero de 
PEN o PAPER 


Modo 


Modo 1 


Modo 2 





1 


1 


1 


1 


24 


24 


24 


2 


20 


20 


1 


3 


6 


6 


24 


4 


26 


1 


1 


5 





24 


24 


6 


2 


20 


1 


7 


8 


6 


24 


8 


10 


1 


1 


9 


12 


24 


24 


10 


14 


20 


1 


11 


16 


6 


24 


12 


18 


1 


1 


13 


22 


24 


24 


14 


1/24 


20 


1 


15 


16/11 


6 


24 



Figura 1.8. Los colores de las tintas al encender el ordenador. Un color doble (tintas 14 y 15 del 
modo 0) indica una tinta parpadeante entre los dos colores indicados. 

Ademas de la pluma, tambien se puede cambiar el color del fondo con la 
instruccion PAPER (o sea, papel). Esta instruccion asigna para el fondo una tinta 
determinada. Comience por inicializar el ordenador mediante las teclas <CTRL> 
<SHIFT> <ESC> y teclee MODE 0. Teclee luego PAPER 3. Lo que escriba a 
continuacion aparecera sobre fondo rojo, que es el color de la tinta niimero 3 (el 
color 6). Si quiere que cambie todo el fondo de la pantalla a este color, utilice el 
comando CLS. PAPER permite en modo utilizar para el fondo cualquiera de las 
16 tintas posibles, incluidas las parpadeantes. 

Ahora podemos combinar las dos sentencias que hemos visto para seleccionar 
los colores del texto y el fondo. Por ejemplo, 



PEN 3 
PAPER 4 
CLS 
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selecciona caracteres rojos sobre fondo bianco en el mode- 0. 

Con los modos 1 y 2 todo ocurre de forma parecida, pero se pueden seleccionar 
menos tintas. En modo 1 las 16 tintas se reducen en la practica a 4, y en el modo 
2 se reducen a dos. En el modo 2, ocho tintas son del color amarillo y otras ocho 
del azul, aunque estos colores se pueden cambiar por otros dos cualesquiera. 
Conviene que observe en la figura 1.8 que una misma tinta puede tener colores 
diferentes en los distintos modos de pantalla. La principal consecuencia de este 
hecho es que un programa que trabaje perfectamente en el modo puede no 
funcionar cuando se lo ejecuta en modo 2, si las tintas de la pluma y del fondo 
producen un mismo color en este ultimo modo. 

Naturalmente, los comandos PEN y PAPER se pueden utilizar tambien 
incluidas en lineas de programa, como por ejemplo: 

10 MODE 

20 LOCATE 4,7 

30 PEN 3 

40 PAPER 5 

50 PRINT "Rojo sobre negro" 

60 LOCATE 4,13 

70 PEN 6 

80 PAPER 3 

90 PRINT "Azul sobre rojo" 

100 LOCATE 4,19 

110 PEN 5 

120 PAPER 6 

130 PRINT "Negro sobre azul" 

140 REM valores normal es de PEN y PAPER 

150 PEN 1 

160 PAPER 
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Puede ejecutar este programa en los tres modos, cambiando para ello la linea 
10. Los resultados que se obtienen pueden ser curiosos, ya que las tintas son de 
colores diferentes en los distintos modos. 

He aqui otro ejemplo: 

10 MODE 

20 rojoenmodo0=3 

30 negroenmodo0=5 

40 PEN rojoenmodoO 

50 PAPER negroenmodoO 

60 CLS 

70 LOCATE 8,12 

80 PRINT "Vale!" 

90 REM valores normal es de PEN y PAPER 

100 PEN 1 

110 PAPER 

Las dos ultimas lineas se encargan de restablecer las tintas del fondo y la 
pluma a sus valores habituales, para evitar encontrarse al terminar el programa 
con cosas como texto amarillo sobre fondo bianco, o con cualquier otra mezcla 
que haga ilegible el texto. 




Precisamente, uno de los problemas habituales cuando se trabaja con los 
colores es que, al terminar un programa, podemos encontrarnos con que el color 
de la pluma y del fondo coinciden. Una forma de solucionar esto es proceder 
como en los programas anteriores. Otra alternativa es programar una de las 
teclas de funcion para que restituya los colores habituales; por ejemplo, 



KEY 128,CHR$(13)+"INK 0,1:INK 1,24:PEN 1: PAPER 0"+CHR$(13) 
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Ejercicios 

l.Escriba un programa que elija aleatoriamente un punto de la pantalla y trace 
una linea hasta otro punto, elegido tambien aleatoriamente, y que repita el 
proceso hasta un nuevo punto, y asi hasta dibujar 100 lineas. 

2.Dibuje en la pantalla un cohete utilizando las sentencias MOVE y DRAW. 
Escriba en el cohete el nombre que usted quiera darle. 

3.Escriba bien centrada en la pantalla del modo la frase "colores surtidos", 
haciendo que cada letra sea de un color diferente. 



Graficos y colores 

Es facil en el Amstrad realizar dibujos a base de lineas de colores. Si se utilizan 
los comandos MOVE y DRAW como hemos hecho hasta ahora, se obtienen lineas 
del color de la tinta 1. Como esta tinta era del color 24 en todos los modos, hemos 
obtenido siempre lineas de color amarillo intense 

Para trazar lineas de otros colores se debe emplear una generalizacion del 
comando DRAW. Reinicialice el ordenador y escriba: 

MOVE 100,100 
DRAW 300,300,2 

Obtendra una linea que une los puntos (100, 100) y (300, 300), dibujada con el 
color de la tinta 2, que es (en modo 1) de color cyan intenso, el numero 20. 
Escriba ahora: 

MOVE 300,300 
DRAW 400,0,3 

y obtendra entre (300, 300) y (400, 0) una linea roja, puesto que la tinta 3 es 
del color numero 6 en modo 1 . 

Con la misma facilidad se pueden utilizar estos comandos incluidos en los 
programas. 

Recuerde que ya explicamos que un programa que funciona correctamente en 
un modo de pantalla, puede no hacerlo en otro a causa del diferente significado 
de las tintas en los distintos modos. El siguiente programa dibuja un rectangulo 
en modo 1, con un lado amarillo, otro cyan y los otros dos rojos: 

10 MODE 1 

20 MOVE 100,100 

30 DRAW 400,100 

20 
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40 DRAW 400,300,3 
50 DRAW 100,300,2 
60 DRAW 100,100,3 




En la linea 30 no se especifica el numero de la tinta, por lo que el ordenador 
utiliza la numero 1. Pero, ejecute el programa una segunda vez. Le sorprendera 
seguramente la desaparicion del lado amarillo. 

Cuando el ordenador encuentra un comando DRAW sin numero de tinta, lo 
que hace es conservar el ultimo que se haya utilizado. Al ejecutar por segunda 
vez el programa, la ultima tinta utilizada es la numero 3, que sera la que utilice 
entonces en el DRAW de la linea 30. Esto tiene la ventaja de que no es necesario 
especificar un nuevo color mientras se desee seguir utilizando el mismo. 
Compruebe este hecho con el programa: 

10 MODE 1 
20 MOVE 200,100 
30 DRAW 400,200,2 
40 DRAW 100,350 
50 DRAW 200,100 




Pruebe tambien este programa en el modo 2, donde la tinta numero 2 es de un 
color diferente. 
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El modo es con mucho el mejor para dibujar figuras con gran colorido, 
siempre que no importe excesivamente la resolucion: 

10 MODE 

20 x=0:y=0 

30 color=l 

40 FOR con=0 TO 350 STEP 4 

50 MOVE x+con,y 

60 DRAW x+350,y+con,color 

70 MOVE x,y+con 

80 DRAW x+con,y+350 

90 color=(color+l) MOD 16 

100 NEXT 




Como cambiar las tintas 

Hasta ahora solo nemos utilizado unos cuantos de los colores que puede producir 
el Amstrad. Hay 16 tintas utilizables, pero hay 27 colores, como vimos en la 
figura 1.6. El Amstrad permite cambiar los colores de las tintas, de manera que 
podemos asi seleccionar en un modo particular la gama de colores que interese. 

Lo que no se puede alterar es la cantidad de colores que pueden aparecer 
simultaneamente en la pantalla, pues es una cantidad fija que depende del modo 
de pantalla. Son siempre 2 colores en modo 2, 4 colores en modo 1 y 16 colores 
en modo 0. Por ejemplo, se puede lograr que en modo 2 el texto sea rojo y el 
fondo bianco, pero solo estos dos colores podran estar en la pantalla en un 
instante dado. 

Al encenderlo, el ordenador se pone en modo 1, el fondo queda de la tinta 
(PAPER 0), que es de color 1, y el texto de la tinta 1 (PEN 1), que es de color 24. 
Reinicialice el ordenador y escriba 
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INK 1,6 

Todo el texto que hay en la pantalla cambiara instantaneamente a color rojo 
intenso. El comando INK (o sea, "tinta") ha de ir seguido de dos numeros. El 
primero es el numero de la tinta cuyo color se va a establecer; el segundo es el 
numero del color que se asigna a la tinta. 

El comando INK 1,6 ha servido para cambiar la tinta 1 al color 6, que es rojo 
intenso. Todo lo que este escrito o dibujado con la tinta 1 cambiara 
automaticamente al nuevo color. Para poner el texto en azul utilizaremos 

INK 1,2 

Lo que estaba en rojo se cambia a azul intenso. ^Desea volver el texto al color 
usual? Posiblemente sepa ya como hacerlo. Escriba 

INK 1,24 

Normalmente, la tinta 1 es en todos los modos del color 24. 

Los cambios de color de las tintas sirven tambien para cambiar el color del 
fondo. En este momento el fondo es de la tinta (PAPER 0), de color azul. 

Para cambiarlo a bianco, escriba 

INK 1,26 

Seguramente le sera dificil leer el texto. Pruebe con INK 0,6 o con INK 0,0. 
Normalmente el fondo es azul en todos los modos, del color 1. Pruebe a volver el 
fondo de dicho color. 

No es necesario haber utilizado previamente una tinta para cambiarle el color. 
Inicialice el ordenador y escriba 

INK 3,0 

No parece que haya pasado nada. Si ahora elegimos PEN 3 en el modo 1, la 
tabla de la figura 1.8 parece sugerir que obtendremos textos de color rojo intenso. 

Pero lo que hemos hecho ha sido cambiar la tinta 3 del color habitual al color 
O, que es negro. Si escribe 

PEN 3 

vera que el nuevo texto aparecera en negro. Escriba ahora 

INK 3,6 



23 



Tecnicas de programacion de grdficos en el Amstrad, rev 2009 (0.90 preliminar) 

y todo el texto escrito con PEN 3 pasara a rojo intense Este color permanece 
incluso si se cambia de modo; compruebelo. 

Es posible tambien crear tintas que sean intermitentes entre dos colores. 
Escriba 

INK 1,3,26 

y todo el texto que se haya escrito con PEN 1 comenzara a alternar entre los 
colores 3, que es rojo, y 26, que es bianco. 

La adecuada utilizacion de tintas intermitentes puede servir para dar la 
impresion de movimiento. Si se hace que la tinta 1 sea intermitente amarillo/rojo 
y la tinta 2 Io sea rojo/amarillo, y se escriben caracteres alternos de las dos 
tintas, se produce la ilusion de un desplazamiento de los colores a lo largo de la 
linea: 



10 MODE 1 

20 INK 1,3,12 

30 INK 2,12,3 

40 tintapluma=l 

50 FOR x=l TO 40 

60 IF tintapluma=l THEN tintapluma=2 ELSE tintapluma=l 

70 PEN tintapluma 

80 LOCATE x,13 

90 PRINT CHR$(143); 

100 NEXT 




La indudable ventaja del comando INK es que permite seleccionar cualquier 
combinacion de los 27 colores. Incluso en el modo 2, que solo admite dos tintas, 
se pueden conseguir buenos efectos usando combinaciones tales como texto rojo 
sobre fondo bianco; es decir, no estamos limitados a la combinacion de amarillo y 
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azul que se obtiene al encender el ordenador. El siguiente programa muestra las 
mas de 700 combinaciones de colores posibles en el modo 2: 



10 1 


WDE 2 


20 1 


FOR x=0 TO 26 


30 


CLS 


40 


INK 0,x 


50 


FOR y=0 TO 26 


60 


IF x<>y THEN INK l,y: PRINT 


70 


respuesta$="" 


80 


WHILE respuesta$="" 


90 


respuesta$=INKEY$ 


100 


WEND 


110 


NEXT 


120 


NEXT 



'Color 




Ejercicios 

l.Escriba su nombre en la pantalla con caracteres intermitentes. Escoja para uno 
de los colores el mismo del fondo, de manera que el nombre aparezca y 
desaparezca. 

2.Dibuje una llama con lineas de colores apropiados. (Podra conseguir un dibujo 
muy efectivo utilizando colores intermitentes.) 

3.Dibuje un cangrejo rojo reposando en un playa de arenas amarillas. Elija las 
tintas y los colores de manera que los colores del dibujo no cambien al cambiar el 
modo de pantalla. 
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2. Caracteres y codigos 

EL JUEGO DE CARACTERES DEL AMSTRAD 

El Amstrad dispone de una considerable variedad de caracteres predefinidos. 
Ademas de los caracteres alfabeticos y numericos, tiene simbolos para 
representar notas musicales, hombrecillos, etc., como se puede comprobar 
ejecutando el siguiente programa: 

10 MODE 1 

20 FOR codigo=32 TO 255 
30 PRINT CHR$(codigo); 
40 NEXT 




El Amstrad asocia cada uno de estos caracteres con un numero de codigo, 
llamado "codigo ASCII" del caracter. Los codigos van del al 255. Los codigos del 
al 31 tienen significados especiales para el ordenador, tales como 'hacer 
retroceder un espacio el cursor' o 'cambiar el color'. Los codigos del 32 al 255 
corresponden a las letras mayusculas y minusculas, los numeros, los signos de 
puntuacion, etc. La linea 30 de programa hace que el ordenador escriba el 
caracter que corresponde a un determinado codigo ASCII. La figura 2.1 muestra 
la distribucion de los codigos ASCII mas usuales. 
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Caracteres 


Codigos ASCII 


Codigos especiales 


0-31 


Espacio 


32 


0-9 


48-57 


A-Z 


65-90 


a-z 


97-122 



Figura 2.1. Algunos de los codigos ASCII mas usuales. 

Los caracteres con codigo entre y 31 pueden ser exhibidos en la pantalla 
precediendolos del caracter cuyo codigo ASCII es 1 : 

10 MODE 1 

20 FOR codigo=0 TO 31 

30 PRINT CHR$(l)CHR$(codigo); 

40 NEXT 




Esto proporciona una notable posibilidad de election de caracteres para un 
programa. Sin embargo, hay situaciones en las que se necesita algun caracter 
que no esta incluido en el juego de caracteres predefinidos del Amstrad; asi 
ocurre con las letras de ciertos idiomas, con los simbolos matematicos y tambien 
en los programas de juegos. En estos casos podemos recurrir a la posibilidad que 
ofrece el Amstrad de crear nuestros propios caracteres definidos por el usuario. 
Antes de hablar de esto, vamos a echar un vistazo a la forma en que el Amstrad 
almacena los caracteres y a ver por que este metodo de almacenamiento limita los 
caracteres predefinidos a solo 256, con codigos ASCII del al 255. 
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Sistema binario; bits y bytes 

£,C6mo almacena el Amstrad la informacion? Para entenderlo de manera sencilla, 
lo mejor es imaginarse el ordenador relleno de millares de interruptores, cada 
uno de los cuales puede estar en las posiciones de 'encendido' y 'apagado'. En el 
Amstrad, estos "interruptores" estan siempre agrupados en bloques de ocho. 
Representando la posicion de 'apagado' por un y la de 'encendido' por un 1, 
podemos representar las posibles combinaciones de ocho interruptores como se 
indica en la figura 2.2. 

Quiza no le sorprenda ya saber que los ocho interruptores pueden encontrarse 
en 256 situaciones posibles. Cada uno de los numeros es un numero binario, 
compuesto unicamente de las cifras y 1 . Las cifras y 1 son las cifras o digitos 
binarios; cada una de estas cifras es un bit. Una combinacion de 8 bits es un 
byte. 

00000000 
1 
10 
11 

1111110 1 
11111110 
11111111 

Figura 2.2. Las 256 combinaciones posibles de 8 "interruptores". 



El sistema binario es una forma de contar agrupando en grupos de dos, de la 
misma manera que nosotros contamos habitualmente haciendo grupos de diez. 
Cada numero binario es equivalente a un numero en nuestro sistema de 
numeracion. Es relativamente sencillo convertir un numero binario en la forma 
mas familiar de numero decimal, como veremos enseguida. 

El byte es la unidad fundamental de almacenamiento de informacion en el 
Amstrad. Muchas de las limitaciones del ordenador provienen justamente del 
hecho de que solo existen 256 bytes diferentes. Si hay solo 256 caracteres 
predefinidos es porque cada caracter debe tener asociado un codigo ASCII que se 
almacene en un byte. Una linea de programa puede tener una longitud de entre 
y 255 caracteres, ya que su numero de caracteres se almacena en un byte. Si 
existiesen 257 caracteres predefinidos, o si una linea pudiese tener mas de 255 
caracteres, estas informaciones deberian almacenarse en dos bytes, lo que 
requeriria considerable cantidad de memoria suplementaria. 

Cada caracter predefinido tiene un codigo ASCII, pero este codigo no es 
suficiente para que el ordenador sepa como debe representar el caracter en la 
pantalla. Cada caracter esta construido en una cuadricula de 8 x 8, como vemos 
en el ejemplo de la letra "A" mayuscula. 
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___ i.i i. ■ Hi^ 

1 JL, — 1 1 1 1 1 



Figura 2.3. La letra "A" mayuscula. 

Cada elemento de la cuadricula puede estar encendido o apagado (en la pantalla) 
y aqui entra de nuevo el sistema binario, ^verdad? Por otra parte, la cuadricula 8 
x 8 es una consecuencia de los 8 bits de un byte. Cada fila de la cuadricula 
puede ser almacenada en un byte, y la descripcion completa del caracter ocupa 8 
bytes. 

110 









1 


1 


1 


1 











1 


1 








1 


1 








1 


1 








1 


1 








1 


1 


1 


1 


1 


1 








1 


1 








1 


1 








1 


1 








1 


1 






00000000 



Figura 2.4. Definicion binaria, con 8 bytes, del caracter "A". 



Los numeros binarios son incomodos para trabajar con ellos porque son largos 
y es facil afiadir y omitir por error algun o algun 1 . Es facil convertir en numero 
decimal el valor binario de un byte; basta con sumar los numeros que aparecen 
sobre las posiciones del byte en las que hay un 1 . 
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128 


64 


32 


16 


8 


4 


2 


1 















1 


1 











16+8 


= 24 










1 


1 










32+16+8+4 


= 60 






















64+32+4+2 


= 102 






















64+32+4+2 


= 102 









1 


1 






1 


64+32+16+8+4+2 


= 126 






















64+32+4+2 


= 102 






















64+32+4+2 


= 102 





























= 



Figura 2.5. Definition, con numeros decimales, del caracter "A". 

El Amstrad puede facilitar aun mas este proceso realizando el trabajo mas 
tedioso. El comando PRINT STR$ (numero) convierte el numero que incluyamos 
como parametro en una cadena literal que es equivalente en forma decimal. 
Podemos comprobar que nuestros calculos eran correctos mediante el programa 
siguiente. Hay que poner los simbolos "&X" antes de un numero binario; de no 
hacerlo asi, el Amstrad lo tomaria como un numero decimal formado por solo 
ceros y unos. 

10 MODE 1 

20 numero=l 

30 WHILE numero>0 

40 INPUT "Teclee el numero binario, precedido por &X "; numero 

50 PRINT "Este es el numero decimal "STR$ (numero) 

60 WEND 



Teclee el nunero binario. 


preced ido 


por 


&X ? SXlOl 






Este es el nunero decimal 


5 




Teclee el nunero binar io, 


preced ido 


por 


&X ? &X1011O11 






Este es el nunero decimal 


31 




Teclee el nunero binar io, 


preced ido 


por 


&X ? SXllllOQOO 






Este es el nunero decinal 


£40 




Teclee el nunero binar io, 


preced ido 


por 


&X ? 






Este es el nunero decinal 







Ready 






■ 
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A veces tambien es necesario convertir numeros decimales en binarios. 
Tambien de eso se puede encargar el Amstrad: 

10 MODE 1 

20 numero=l 

30 WHILE numero>0 

40 INPUT "Teclee el numero decimal ";numero 

50 PRINT "Este es el numero binario "BIN$(numero) 

60 WEND 



Teclee el Yiuner o dec ina 1 ? 240 
Este es el nuner o b inar i o UllOOOO 
Teclee el nurtero dec ina 1 ? 2 
Este es el nuner o b inar i o 10 
Teclee el nuner o dec in-a 1 ? 21 
Este es el nuner o b inar i o 10101 
Teclee el nurtero dec ina 1 ? 
Este es el nun ere b inar i o 
Ready 



Respecto de estos comandos que convierten numeros, hay que advertir que 
proporcionan una cadena literal como resultado. No se pueden hacer operaciones 
aritmeticas con cadenas; para realizarlas hay que convertir previamente la 
cadena literal en un numero: 

10 MODE 1 

20 numero=l 

30 WHILE numero>0 

40 INPUT "Teclee el numero decimal ";numero 

50 PRINT "Este es el numero binario "BIN$(numero) 

54 REM VAL convierte una cadena literal en un numero 

55 numerico=VAL(BIN$ (numero)) 

56 PRINT "Este es el numero ";numerico 
60 WEND 



Como definir sus propios caracteres 

Cualquiera de los 16 caracteres cuyo codigo ASCII esta entre 240 y 255 se puede 
redefinir para que tenga otra forma diferente. Para ver como hacerlo, vamos a 
cambiar el caracter 240 para que sea la letra "A", aprovechando el hecho de que 
ya conocemos los valores de los 8 bytes que se utilizan en la descripcion de esta 
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letra: 

10 MODE 1 

20 REM SYMBOL define el caracter 

30 SYMBOL 240,24,60,102,102,126,102,102,0 

40 PRINT CHR$(240) 



La instruccion SYMBOL de la linea 30 es la que se encarga de informar al 
Amstrad de nuestra nueva definicion del caracter. El primer numero, 240, es el 
del codigo ASCII del caracter; los ocho numeros que siguen definen, fila por fila, 
la cuadricula del caracter. 

Para redefinir otros codigos ASCII ademas de los 16 citados, hay que emplear 
la instruccion SYMBOL AFTER, como en el programa siguiente: 

10 MODE 1 

20 SYMBOL AFTER 65 

30 SYMBOL 65,231,195,153,153,129,153,153,255 
40 PRINT CHR$(65) 




La linea 20 indica al ordenador que vamos a redefinir caracteres ASCII con 
codigo igual o superior a 65. La 30 redefine el codigo 65, que inicialmente 
representa la letra "A", para que de una imagen en negativo de la letra. El 
caracter que habia antes de la definicion ha desaparecido. Para recuperarlo se 
puede reinicializar el ordenador, o tambien se puede emplear la instruccion 
SYMBOL AFTER, que devuelve a todos los caracteres posteriores al especificado 
su aspecto inicial: 

10 MODE 1 

20 SYMBOL AFTER 65 

30 SYMBOL 65,231,195,153,153,129,153,153,255 



32 



Tecnicas de programacion de grdficos en el Amstrad, rev 2009 (0.90 preliminar) 



40 PRINT CHR$(65) 
50 SYMBOL AFTER 70 



Sistema hexadecimal 



Ya hemos visto que podemos utilizar el ordenador para facilitarnos la conversion 
entre numeros binarios y decimales. Aunque para nosotros el sistema familiar 
sea el decimal, cuando se trabaja con ordenadores es usual utilizar el sistema 
hexadecimal, que es el sistema de base 16. 



DECIMAL 


EQUIVALENTE HEXADECIMAL 








1 


1 


10 


A 


11 


B 


12 


C 


13 


D 


14 


E 


15 


F 


16 


10 


17 


11 


30 


IE 


100 


64 


255 


FF 



Figura 2.6. Algunos numeros decimales y sus equivalentes hexadecimales. 

Los numeros hexadecimales se escriben habitualmente precedidos del simbolo 
'&' para que no se confundan con los decimales. Es conveniente acostumbrarse a 
trabajar con este sistema de numeracion. Su ventaja principal estriba en que los 
valores que puede tomar un byte corresponden exactamente a los numeros 
hexadecimales de 2 cifras. Por ejemplo, la descripcion de la letra A' es mas 
sencilla cuando la hacemos con numeros hexadecimales, como vemos en el 
programa siguiente: 

10 MODE 1 

20 SYMBOL 240 , &18 , &3C , &66 , &66 , &7E , &66 , &66 , 

30 PRINT CHR$(240) 

Puesto que el ordenador trabaja con bytes, los numeros hexadecimales 
resultan mas convenientes en la mayor parte de los casos. Asi, bastantes de los 
numeros que nos aparecen repetidamente, y cuya significacion no queda clara al 
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escribirlos en decimal, revelan su importancia al escribirlos en hexadecimal. Por 
ejemplo, el maximo valor posible de los numeros de linea en los programas, 
65535, parece arbitrario escrito en decimal. Su version hexadecimal, &FFFF, 
aclara la razon de este numero limite; 65535 es el mayor numero que se puede 
escribir con dos bytes. Con numeros de linea almacenados en dos bytes se puede 
efectivamente llegar hasta 256 x 256 = 65535. El empleo de numeros mas 
grandes requeriria que se les dedicasen al menos tres bytes. En cambio, si los 
numeros de linea se almacenasen en un byte, su valor solo podria estar entre y 
255. 

El Amstrad convierte sin dificultad numeros decimales en hexadecimales: 

10 MODE 1 

20 niimero=l 

30 WHILE numero>0 

40 INPUT "Teclee el numero decimal ";numero 

50 PRINT "En hexadecimal vale "HEX$ (numero) 

60 WEND 

Tambien hace la conversion inversa; en este caso, el numero que se introduce 
es hexadecimal, y debe ir precedido de '&': 

10 MODE 1 

20 numero=l 

30 WHILE numero>0 

40 INPUT "Teclee el numero hexadecimal, precedido por & ";Numero 

50 PRINT "Este es el numero decimal "STR$ (numero 

60 WEND 



JUEGOS Y CARACTERES DEFINIDOS 

Los caracteres definidos por el usuario se emplean con gran frecuencia en los 
programas de juegos. El programa que sigue define un caracter con forma de 
perro y lo escribe en varios lugares de la pantalla elegidos aleatoriamente: 

10 MODE 

20 SYMBOL 240,0,4,7,132,124,130,130,0 

30 FOR perroaleatorio=l TO 30 

40 xaleat=INT(19*RND(l)+l) 

50 yaleat=INT(24*RND(l)+l) 

60 tintapluma=INT(15*RND(l)+l) 

70 PEN tintapluma 

80 LOCATE xaleat,yaleat 

90 PRINT CHR$(240) 

100 NEXT 
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Para hacer que la figura se mueva por la pantalla, vamos a escribir un espacio 
en bianco en la posicion que ocupa el perro (para borrarlo) y a escribir el perro en 
una nueva posicion. El movimiento se dirige mediante las teclas 'a', 'z', ',' y '.' y el 
programa se termina cuando se pulsa 'e'. 



10 MODE 

20 SYMBOL 240,0,4,7,132,124,130,130,0 

30 perro$=CHR$(240) 

40 PEN 1 

50 xperro=13:yperro=10 

60 respuesta$="" 

70 WHILE respuesta$<>"e" 



80 

90 

100 

110 

120 

130 

140 



ynuevo=yperro:xnuevo=xperro 
respuesta$=INKEY$ 

IF respuesta$="a" 

IF respuesta$="z" 

IF respuesta$="," 

IF respuesta$=" . " 



AND yperro>l THEN ynuevo=yperro-l 
AND yperro<25 THEN ynuevo=yperro+l 
AND xperro>l THEN xnuevo=xperro-l 
AND xperro<20 THEN xnuevo=xperro+l 
IF xperro<>xnuevo OR yperro<>ynuevo THEN LOCATE xperro,yperro: PRINT 

" ; :xperro=xnuevo:yperro=ynuevo 

150 LOCATE xperro,yperro 

160 PRINT perro$ 

170 WEND 



El movimiento resulta mas creible cuando se utilizan caracteres distintos para 
las diferentes direcciones del movimiento. Para demostrarlo podriamos modificar 
el programa anterior, pero lo que haremos sera utilizar como caracteres los que 
ya estan definidos para los codigos ASCII 240 a 243. Se trata de flechas que 
apuntan en las cuatro direcciones: 
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10 MODE 

30 flecha$=CHR$(240) 

40 PEN r 

50 xflecha=13:yflecha=10 

60 respuesta$="" 

70 WHILE respuesta$<>"e" 

80 ynuevo=yflecha:xnuevo=xflecha 

90 respuesta$=INKEY$ 

100 IF respuesta$="a" AND yflecha>l THEN ynuevo=yflecha-l:flecha$=CHR$(240) 

110 IF respuesta$="z" AND yflecha<25 THEN ynuevo=yflecha+l:flecha$=CHR$(241) 

120 IF respuesta$="," AND xflecha>l THEN xnuevo=xflecha-l:flecha$=CHR$(242) 

130 IF respuesta$="." AND xflecha<20 THEN xnuevo=xflecha+l:flecha$=CHR$(243) 

140 IF xflecha<>xnuevo OR yflecha<>ynuevo THEN LOCATE xflecha.yflecha: PRINT " 

"; :xflecha=xnuevo: yflecha=ynuevo 

150 LOCATE xflecha,yflecha 

160 PRINT flecha$ 

170 WEND 

La idea de este programa puede servir de base para muchos juegos. 

Uno de los problemas que se presentan al definir caracteres es que, cuando se 
dibuja en papel un esquema del caracter, el posterior resultado en pantalla 
resulta con frecuencia bastante diferente de lo esperado. El disenador de 
caracteres que figura en la cinta de presentacion del Amstrad tiene el grave 
inconveniente de no dar la definicion numerica del caracter que se dibuja; esta 
definicion es necesaria para la sentencia SYMBOL. 

El programa que sigue le permitira crear sus propios caracteres, le pro- 
porcionara la definicion numerica del caracter creado y le dara la oportunidad de 
grabar esta definicion en un fichero. Asi podra construir su propia biblioteca de 
caracteres definidos, para utilizarla en la elaboracion de programas. 

10 MODE 1 

20 DEFINT c,n,x,y 

29 REM matrices para almacenar la definicion del caracter 

30 DIM codigo(8,8),simbolo(8) 
40 INK 3,20,6 

50 nombre$= "??????" 
60 numero=240 

69 REM 

70 G0SUB 1000 

80 G0SUB 3000:G0SUB 4000 

89 REM esperar la respuesta del teclado 

90 respuesta$="" 

100 WHILE respuesta$<>"e" 

110 xnuevo=x:ynuevo=y 

120 respuesta$=L0WER$(INKEY$) 

129 REM las cuatro lineas siguientes control an e 1 movimiento del cursor arriba/ 
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abajo/izquierda/d erecha 

130 IF respuesta$="a" AND y>ycomienzo THEN ynuevo=y-l 
140 IF respuesta$="z" AND y<ycomienzo+7 THEN ynuevo=y+l 
150 IF respuesta$=", M AND x>xcomienzo THEN xnuevo=x-l 
160 IF respuesta$=" . " AND x<xcomienzo+7 THEN xnuevo=x+l 

169 REM se recti fica la posicion si ha cambiado 

170 IF xnuevo<>x OR ynuevo<>y THEN G0SUB 2000 

179 REM si se aprieta la barra de espacio cambia el color del punto 

180 IF respuesta$=" " THEN G0SUB 7000:G0SUB 3000 

189 REM si se pulsa 'o' se graba la definicion del simbolo en un fichero 

190 IF respuesta$="o" THEN G0SUB 5000:G0SUB 1000:G0SUB 3000:G0SUB 4000 

199 REM si se pulsa ' i ' se carga la definicion del simbolo desde la cinta 

200 IF respuesta$="i" THEN G0SUB 6000:G0SUB 3000:G0SUB 4000 
210 PEN 14 

220 LOCATE x,y 
230 PRINT CHR$(203); 
240 WEND 
250 END 

999 REM definicion del simbolo vacio 

1000 CLS 

1010 SYMBOL numero,0,0,0,0,0,0,0,0 

1020 PEN 1 

1030 FOR con=l TO 8 

1040 FOR conl=l TO 8 

1050 codigo(con,conl)=l 

1060 NEXT 

1070 NEXT 

1079 REM impresion de 8*8 cuadrados vados para representar el caracter 'espacio 
en bianco 1 

1080 xcomienzo=2:ycomienzo=2 

1090 FOR x=xcomienzo TO xcomienzo+7 

1100 FOR y=ycomienzo TO ycomienzo+7 

1110 LOCATE x,y 

1120 PRINT CHR$(233); 

1130 NEXT 

1140 NEXT 

1150 x=xcomienzo:y=ycomienzo 

1160 RETURN 

1999 REM impresion del caracter con su color correcto 

2000 LOCATE x,y 

2010 xcodi go=x-xcomi enzo+1 :ycodi go=y-ycomi enzo+1 

2020 PEN codigo (xcodigo,ycodigo) 

2030 PRINT CHR$(233); 

2040 x=xnuevo:y=ynuevo 

2050 RETURN 

2999 REM conversion de la matriz codigo en los o cho numeros decimales que 

definen el caracter 
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3000 FOR con=l TO 8 

3010 simbolo$="&X" 

3020 FOR conl=l TO 8 

3030 simbolo$=simbolo$+MID$(STR$(codigo(conl,con )-l),2,l) 

3040 NEXT 

3050 simbolo(con)=VAL(simbolo$) 

3060 NEXT 

3070 SYMBOL 

numero, simbolo(l) ,simbolo(2) ,simbolo(3) ,simbolo(4) ,simbolo(5) ,simbolo(6) ,simbolo 

(7), simbolo(8) 

3080 PEN 1 

3090 LOCATE l,ycomienzo+10 

3100 PRINT "Simbolo: ";CHR$ (numero) ; 

3110 LOCATE l,ycomienzo+12 

3120 PRINT "SYMBOL 

";numero;simbolo(l) ;simbolo(2) ;simbolo(3) ; simbolo (4) ;simbol0(5) ;simbolo(6) ;simbo 

lo(7) ;simbolo(8) ; 

3130 RETURN 

4000 PEN 1 

4010 LOCATE l,ycomienzo+15 

4020 PRINT "Nombre del simbolo: ";nombre$ 

4030 LOCATE l,ycomienzo+17 

4040 PRINT "Simbolo numero: ";numero 

4050 RETURN 

4999 REM grabar la definicion en un fichero 5000 LOCATE 1,21 

5010 PEN 1, 

5020 INPUT "Nombre del simbolo" ;nombre$ 

5030 OPENOUT nombre$ 

5040 WRITE 

#9, nombre$, numero, simbolo(l) ,simbolo(2) ,simbolo(3) ,simbolo(4) ,simbolo(5) , simbolo 

(6) ,simbolo(7) ,simbolo(8) 

5050 CLOSEOUT 

5059 REM nombre y numero de simbolo para la sigu lente definicion 

5060 nombre$="??????" 
5070 numero=numero+l 
5080 RETURN 
CARACTERES Y CODIGOS 31 

5999 REM lectura del fichero con la definicion d el caracter 

6000 LOCATE 1,21 
6010 PEN 1 

6020 INPUT "Nombre del simbolo" ;nombre$ 

6030 OPENIN nombre$ 

6040 INPUT #9, nombre$, numero, simbolo(l) ,simbolo( 

2) ,simbolo(3) ,simbolo(4) ,simbolo(5) ,simbolo(6) ,simbolo(7) ,simbolo(8) 

6050 CLOSEIN 

6060 CLS 

6069 REM conversion a binario de la matriz simbolo para obtener la matriz codigo 
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6070 FOR con=l TO 8 

6080 simbol o$=BIN$ (simbol o (con) ) 

6090 longitud=LEN(simbolo$) 

6100 simbol o$=STRING$ (8-1 ongitud,"0")+simbolo$ 

6110 FOR conl=l TO 8 

6120 LOCATE xcomienzo+conl-l,ycomienzo+con-l 

6130 codigo=VAL(MID$ (simbol o$,conl,l))+l 

6140 PEN codigo 

6150 PRINT CHR$(233); 

6160 codigo(conl,con)=codigo 

6170 NEXT 

6180 NEXT 

6190 RETURN 

6999 REM si se aprieta la barra de espacio cambia el color en la posicion del 
cursor 

7000 xcodi go=x-xcomi enzo+1 :ycodi go=y-ycomi enzo+1 

7010 IF codigo(xcodigo,ycodigo)=l THEN codigo(xcodigo,ycodigo)=2 ELSE 
codi go (xcodi go ,ycodi go) = 1 
7020 RETURN 




Ejercicios 

l.Diserie un caracter con forma de arana y defina la tecla de '.' para que 
proporcione ararias al pulsarla. 

2.Escriba un programa que mueva su arana por la pantalla. A base de lineas 
podra ademas dibujar una telarana. 

3.Mejore ahora su programa disenando ararias que miren en las cuatro 
direcciones y dibujando la que convenga para que la arana vaya mirando en la 
direccion del movimiento. 
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Figuras de varios caracteres 

En el mode- 1 , el tamario de un caracter no da mucho de si para crear una figura 
detallada; puede ser conveniente construir una figura mayor yuxtaponiendo 
varios caracteres. Cuando la figura es horizontal, se pueden juntar varios 
caracteres en una cadena literal: 

10 MODE 1 

19 REM los tres caracteres que forman el camion 

20 SYMBOL 240,0,0,96,96,96,127,18,12 
30 SYMBOL 241,0,0,0,0,0,255,0,0 

40 SYMBOL 242,248,132,132,255,255,255,72,48 
50 camion$=CHR$(240)+CHR$(241)+CHR$(242) 
60 LOCATE 18,13 
70 PRINT camion$ 




Es facil mover el camion con ayuda del teclado, aunque para que resulte 
convincente solo lo moveremos hacia la derecha; para ello hay que pulsar 

10 MODE 1 

20 REM los tres caracteres que forman el camion 

30 SYMBOL 240,0,0,96,96,96,127,18,12 

40 SYMBOL 241,0,0,0,0,0,255,0,0 

50 SYMBOL 242,248,132,132,255,255,255,72,48 

60 camion$=CHR$(240)+CHR$(241)+CHR$(242) 

70 x=l:y=13 

80 LOCATE x,y 

90 PRINT camion$ 

100 respuesta$="" 

109 REM 

110 WHILE respuesta$<>"e" 
120 xnuevo=x 
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130 respuesta$=LOWER$(INKEY$) 

140 IF respuesta$="." THEN xnuevo=x+l 

149 REM si el camion se ha movido se borra con un espacio el antiguo caracter de 
la izquierda 

150 IF xnuevo<>x THEN LOCATE x,y: PRINT " ";camion$ 
160 x=xnuevo 

170 WEND 

Observe lo que ocurre cuando la figura llega al final de la linea: salta 
automaticamente al comienzo de la nueva linea. Esto se debe a que el Amstrad 
nunca escribe un caracter en una posicion que le lleve fuera de la pantalla. 
Cuando se le presenta esta situacion, el ordenador toma la decision de mover el 
cursor de texto a una posicion conveniente, de acuerdo con las siguientes reglas: 

l.Si el cursor se va a salir de la pantalla por la derecha, se lo traslada al 
comienzo de la linea siguiente. 

2. Si el cursor se va a salir de la pantalla por la izquierda, se lo traslada a la 
ultima posicion de la linea anterior. 

3. Si el cursor se va a salir por la parte superior de la pantalla, el contenido de 
esta se desplaza una linea hacia abajo y el cursor permanece en la primera linea 
de la pantalla. 

4. Si el cursor se va a salir por la parte inferior de la pantalla, el contenido de esta 
se desplaza una linea hacia arriba, y el cursor permanece en la ultima linea de la 
pantalla. 

Aunque solo el caracter delantero del camion se situe en una posicion ilegal, el 
ordenador considera toda la cadena literal como situada ilegalmente. Esto ocurre 
cuando el camion comienza en la posicion 39 de la linea; el ordenador lleva 
entonces toda la cadena al comienzo de la linea siguiente. Es importante recordar 
esto, ya que significa que el tamaho de un caracter multiple influye decisivamente 
en el numero de posiciones en las que podra ser dibujado. En el caso que nos 
ocupa, el mayor valor que puede tomar la coordenada x de texto es 38. 



Parece bastante mas dificil mover una figura compuesta cuando tiene forma 
vertical, puesto que en principio habria que emplear una instruccion LOCATE 
para situar cada uno de los caracteres que la componen. Sin embargo, viene en 
nuestra ayuda el hecho de que existen cuatro codigos ASCII (de valores inferiores 
a 32) que sirven para mover el cursor en las cuatro direcciones. Son los que se 
explican en la figura 2.7. Incluyendo estos codigos como caracteres, es posible 
describir una figura vertical en forma de cadena literal; es lo que hacemos en la 
figura 2.8. El ordenador no dibujara en la pantalla estos caracteres de 
movimiento del cursor, sino que realizara con el cursor de texto el movimiento 
que corresponda. 
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Codigo ASCII 

8 
9 
10 

11 



Accion 

Mover el cursor una posicion hacia atras 

Mover el cursor una posicion hacia delante 

Mover el cursor una linea hacia abajo 

Mover el cursor una linea hacia arriba 



Figura 2.7. Los cuatro codigos ASCII de movimiento del cursor. 



El cohete se puede representar mediante una cadena literal compuesta por: 

arr$ + CHR$(8) + CHR$(10) 
(mueve el cursor atras y hacia abajo para escribir los siguientes caracteres) 

+med$ + CHR$(8) + CHR$(10) 
(lo mismo otra vez) 



+abj$ 



^^^^^^^^™^^^~ 



arr$ 



mettt 



£&i? 



Para colocar el cohete en la posicion deseada de pantalla, basta con una sola instruccion LOCATE: 

10 MODE 1 

19 REM los tres caracteres que forman el cohete 
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20 SYMBOL 240,0,24,24,24,24,36,36,36 

30 SYMBOL 241,36,36,36,36,36,36,36,36 

40 SYMBOL 242,66,129,129,129,129,153,195,129 

50 cohete$=CHR$(240)+CHR$(8)+CHR$(10)+CHR$(241)+ CHR$(8)+CHR$(10)+CHR$(242) 

60 x=20:y=20 

70 LOCATE x,y 

80 PRINT cohete$ 

90 respuesta$="" 

100 REM leer del teclado en tanto no se pulse 'e 

110 WHILE respuesta$<>"e" AND y>l 

120 ynuevo=y 

130 respuesta$=L0WER$(INKEY$) 

140 IF respuesta$="a" THEN ynuevo=y-l 

150 REM si se ha movido el cohete se borra con un bianco el antiguo caracter 

inferior 

160 IF ynuevooy THEN LOCATE x,y+2: PRINT " ": LOCATE x,ynuevo: PRINT cohete$ 

170 y=ynuevo 

180 WEND 




Lamentablemente, cuando el Amstrad echa sus cuentas sobre la longitud de 
una cadena y lo que le resta de linea, no tiene en cuenta los posibles caracteres 
de control del cursor que pueda haber en la cadena. En el caso anterior, el 
ordenador considerara que debe escribir una cadena con 7 caracteres y, en 
consecuencia, no podra hacerlo en una posicion cuya coordenada X de texto sea 
superior a 34. Puede comprobar lo que decimos con solo cambiar la linea 60: 

60 x=35:y=20 



Asi pues, podemos usar los caracteres de control del cursor para crear figuras 
multiples, pero teniendo siempre en cuenta lo que acabamos de decir. En muchas 
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ocasiones sera preferible utilizar varias sentencias LOCATE para evitarse estos 
problemas. El siguiente programa muestra conjuntamente las dos posibilidades: 

10 MODE 1 

19 REM los tres caracteres que definen el cohete 

20 SYMBOL 240,0,24,24,24,24,36,36,36 
30 SYMBOL 241,36,36,36,36,36,36,36,36 

40 SYMBOL 242,66,129,129,129,129,153,195,129 

49 REM definicion del cohete usando movimientos del cursor 

50 cohete$=CHR$(240)+CHR$(8)+CHR$(10)+CHR$(241)+ CHR$(8)+CHR$(10)+CHR$(242) 

59 REM con este procedimiento la coordenada x no debe pasar de 34 

60 x=l:y=20 

70 LOCATE 3,23 

80 PRINT "Definido con movimientos del cursor" 

90 FOR ycoord=y TO 1 STEP -1 

100 LOCATE x,ycoord+3 

110 PRINT " " 

120 LOCATE x,ycoord 

130 PRINT cohete$ 

140 NEXT 

149 REM hay que pulsar una tecla para continuar la demostracion 

150 respuesta$="" 

160 WHILE respuesta$="" 
170 respuesta$=L0WER$(INKEY$) 
180 WEND 
190 CLS 

199 REM con este procedimiento la coordenada s p uede tomar cualquier valor 

200 x=36:y=20 
210 LOCATE 7,23 

220 PRINT "Definido usando LOCATE para cada parte" 

229 REM cada parte del cohete se col oca mediante su propia instruccion LOCATE 

230 FOR ycoord=y TO 1 STEP -1 
240 LOCATE x,ycoord 

250 PRINT CHR$(240) 
260 LOCATE x,ycoord+l 
270 PRINT CHR$(241) 
280 LOCATE x,ycoord+2 
290 PRINT CHR$(242) 

299 REM Se horra la base del cohete de la posicion anterior 

300 LOCATE x,ycoord+3 
310 PRINT " " 

320 NEXT 



Se pueden obtener efectos mas interesantes definiendo dos figuras ligeramente 
diferentes y dibujando alternativamente una u otra. Utilizando esta idea, 
producimos el efecto de una culebra que serpentea sobre la pantalla: 
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10 MODE 1 

19 REM definicion de los dos caracteres con forma de culebra 

20 SYMBOL 240,0,0,32,80,81,74,130 
30 SYMBOL 241,0,0,0,132,74,81,80,32 
40 culebral$=CHR$(240) 

50 culebra2$=CHR$(241) 
60 culebra$=culebral$ 
70 y=13 
80 FOR x=l TO 39 

89 REM alternancia entre los dos caracteres culebra 

90 IF culebra$=culebral$ THEN culebra$=culebra2$ ELSE culebra$=culebral$ 
100 LOCATE x,y 

109 REM el espacio borra la culebra anterior 

110 PRINT " ";culebra$ 

119 REM un tiempo de espera para que el movimiento no sea excesivamente rapido 

120 tiempo=TIME 

130 WHILE TIME<tiempo+30 
140 WEND 
150 NEXT 




De la misma manera podriamos definir dos figuras de camion para dar la 
impresion del traqueteo que produce su movimiento. O podemos hacer que el 
perro que ya habiamos dibujado menee ahora la cola al pasearse: 

10 MODE 1 

19 REM definicion de los dos caracteres con form a de perro 

20 SYMBOL 240,0,132,135,132,124,130,130,0 
30 SYMBOL 241,0,36,71,132,124,130,65,0 

40 perrol$=CHR$(240) 
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50 perro2$=CHR$(241) 
60 perro$=perrol$ 
70 y=13 
80 FOR x=l TO 39 

89 REM alternancia entre los dos caracteres perr o 

90 IF perro$=perrol$ THEN perro$=perro2$ ELSE perro$=perrol$ 
100 LOCATE x,y 

109 REM el espacio borra el perro anterior 

110 PRINT " ";perro$ 

119 REM un tiempo de espera para que el movimiento no sea excesivamente rapido 

120 tiempo=TIME 

130 WHILE TIME<tiempo+30 
140 WEND 
150 NEXT 




Ejercicios 

l.Dibuje su propia version de un autobus con varios caracteres y conduzcalo a lo 
largo de la pantalla. 

2.Disene dos caracteres circulares con un diametro situado en dos angulos 
diferentes y dibujelos alternativamente para obtener la impresion de una rueda. 

3.Anada a su autobus unas ruedas que giren al desplazarlo. 



Como mejorar la resolucion 

A pesar de que se pueden lograr muchas cosas utilizando unicamente la 
pantalla de texto, hay ciertas limitaciones que resultan obvias. La mejor 
resolucion posible es la del modo 2, pero esta limitada a 25 lineas de 80 
caracteres. En cambio, la peor de las resoluciones graficas es de 160 por 200 
puntos. 
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Afortunadamente, el Amstrad permite dibujar los caracteres en cualquiera de 
las posiciones de la pantalla grafica; esto permite realizar dibujos que se muevan 
con suavidad. Tambien hace posible, en trabajos mas profesionales, colocar 
rotulos en las graficas en la posicion mas conveniente, en lugar de tener que 
hacerlo en la posicion de texto mas cercana. 

El cambio de texto a coordenadas graficas trae consigo algunos cambios. 
Cuando se ha ejecutado el comando TAG (de "Text At Graphics", texto en 
posiciones graficas), los caracteres no se colocan en su sitio mediante la 
sentencia LOCATE, sino mediante MOVE, que sirve para situar el cursor grafico. 
El punto que ocupa el cursor grafico sera el punto superior izquierdo del caracter. 
Veamos como podemos mover de esta forma un caracter que representa uno de 
los clasicos "invasores del espacio": 

10 MODE 1 

19 REM definicion del invasor extraterrestre 

20 SYMBOL 240,24,60,126,219,255,255,165,165 
30 invasor$=CHR$(240) 

40 xgrafico=100:ygrafico=200 

49 REM asociar el texto al -cursor grafito 

50 TAG 

60 FOR x=xgrafico TO 600 
70 MOVE x,ygrafico 

78 REM el espacio en bianco es para borrar el invasor de la posicion anterior 

79 REM elimine el punto y coma para probar 

80 PRINT " "invasor$; 
90 NEXT 




Es fundamental aqui el punto y coma que termina la sentencia PRINT, ya que, 
cuando se utiliza TAG para controlar la escritura de caracteres, los codigos entre 
y 31 no son obedecidos, sino dibujados. Sin el punto y coma, se dibujarian en 
cada caso los caracteres 10 y 13 que, como caracteres de control, son CR y LF 
(los que sirven para llevar el cursor al comienzo de la linea siguiente). Lo vera aun 
mejor con el ejemplo del cohete: 

10 MODE 1 

19 REM los tres caracteres que definen el cohete 

20 SYMBOL 240,0,24,24,24,24,36,36,36 
30 SYMBOL 241,36,36,36,36,36,36,36,36 

40 SYMBOL 242,66,129,129,129,129,153,195,129 

50 cohete$=CHR$(240)+CHR$(8)+CHR$(10)+CHR$(241)+CHR$(8)+CHR$(10)+CHR$(242) 

60 TAG 

70 xgrafico=300:ygrafico=100 
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80 FOR y=ygrafico TO 350 

89 REM se borra la base del antiguo cohete 

90 MOVE xgrafico,y-24 
100 PRINT " "; 

109 REM imprimir el nuevo cohete(que birria) 

110 MOVE xgrafico,y 
120 PRINT cohete$; 
130 NEXT 




jNada que ver con lo que queriamos! Los problemas que crea el movimiento del 
cursor, tanto en el modo de texto como en el grafico, son mas sencillos de 
resolver para figuras sencillas. Si una figura esta formada por una tira horizontal 
de caracteres, entonces se la puede situar con una sola instruccion MOVE, ya 
que, al escribir un caracter, el cursor grafico se mueve automaticamente el 
espacio equivalente a la anchura de un caracter, colocandose en la posicion 
adecuada para el siguiente. Nuestro camion funcionara sin problemas por este 
metodo: 

10 MODE 1 

19 REM los tres caracteres que forman el camion 

20 SYMBOL 240,0,0,96,96,96,127,18,12 

21 SYMBOL 241,0,0,0,0,0,255,0,0 

22 SYMBOL 242,248,132,132,255,255,255,72,48 
30 camion$=CHR$(240)+CHR$(241)+CHR$(242) 

40 xgrafico=0:ygrafico=200 

49 REM asociar el texto al cursor grafico 

50 TAG 

60 FOR x=xgrafico TO 600 
70 MOVE x,ygrafico 

79 REM el espacio en bianco es para borrar la parte trasera del camion 
anterior 

80 PRINT " "camion$; 
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90 NEXT 

Para el cohete, sin embargo, hay que utilizar una serie de instrucciones MOVE: 



10 MODE 1 

19 REM los tres caracteres que definen el cohete 

20 SYMBOL 240,0,24,24,24,24,36,36,36 
30 SYMBOL 241,36,36,36,36,36,36,36,36 

40 SYMBOL 242,66,129,129,129,129,153,195,129 

50 cohetearriba$=CHR$(240) 

51 cohetemedio$=CHR$(241) 

52 coheteabajo$=CHR$(242) 
60 TAG 

70 xgrafico=300:ygrafico=100 
80 FOR y=ygrafico TO 350 

89 REM se borra la base del antigua cohete 

90 MOVE xgrafico,y-48 
100 PRINT " "; 

110 MOVE xgrafico,y 

120 PRINT cohetearriba$; 

121 MOVE xgrafico,y-16 

122 PRINT cohetemedio$; 

123 MOVE xgrafico,y-32 

124 PRINT coheteabajo$; 
130 NEXT 

La sentencia TAG se anula mediante la TAGOFF; tambien se anula auto- 
maticamente al finalizar un programa. 

Movimientos mas rapidos 

Ya se habra dado cuenta del precio que hay que pagar a cambio de obtener 
movimientos suaves de las figuras: el programa va mas lento. Hay una serie de 
medidas que podemos tomar para que el programa vaya lo mas rapidamente 
posible. 

En primer lugar, se aumenta la rapidez si se trabaja con numeros enteros 
siempre que sea posible. Esto permite al ordenador hacer los calculos con mayor 
rapidez. Puede que piense que no hemos utilizado otra cosa que enteros en los 
programas precedentes, pero no es asi. El ordenador trata todos los numeros 
como reales (numeros con punto decimal) si no se le dice otra cosa. Para declarar 
ciertas variables como enteras se puede utilizar la instruccion DEFINT: 

1 DEFINT x,y 

El ordenador tratara entonces como enteras a todas las variables numericas 
que comiencen por G, X o Y. Se puede observar el cambio que esto origina en la 
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velocidad si se realiza el mismo programa con y sin la especificacion de numeros 
enteros: 

1 DEFINT x,y 
10 MODE 1 

19 REM los tres caracteres que forman el camion 

20 SYMBOL 240,0,0,96,96,96,127,19,12 

21 SYMBOL 241,0,0,0,0,0,255,0,0 

22 SYMBOL 242,240,132,132,255,255,255,72,48 
30 cami on$=CHR$ (240)+CHR$ (241)+CHR$ (242) 

40 xgrafico=0:ygrafico=200 

49 REM asociar el texto al cursor grafico 

50 TAG 

55 tiempoinicial=TIME 
60 FOR x=xgrafico TO 600 
70 MOVE x,ygrafico 

79 REM el espacio en blanca es para borrar la parte trasera del camion 
anterior 

80 PRINT " "camion$; 
90 NEXT 

99 tiempototal=TIME 

100 TAG0FF 

110 LOCATE 1,20 

120 PRINT "Tiempo transcurrido "(tiempototal-tiempoinicial)/300 "segundos" 



Tienpo transcurrido 6.15666667 segundos 
Ready 



Una segunda manera de lograr mas rapidez es observar cual es el minimo 
desplazamiento que puede efectuar realmente el ordenador en cada modo. Si en 
mode- se desplaza horizontalmente un caracter en una sola unidad, se vuelve a 
obtener el mismo caracter. Para obtener un desplazamiento horizontal hay que 
modificar la coordenada horizontal en al menos 4 unidades en modo O, y en 2 
unidades en modo 1. En vertical, la modificacion debe ser de 2 unidades en 
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cualquiera de los modos. 





Figura 2.9. Dos caracteres que representan "invasores del espacio"; el primero es mas util, ya que 
su borde sirve para borrar lo que queda de el en la position anterior. 



Finalmente, podemos disenar caracteres que tengan un borde vacio alrededor 
de la figura. Esto garantiza que al desplazarse en cualquier direccion no va 
dejando huellas tras de si. La segunda de las dos figuras de "invasores del 
espacio" que estan dibujadas en la figura 2.9 debe ser borrada cada vez que se 
produce un desplazamiento. Esto contribuye a hacer mas lento el programa. 

<j,Y ahora que mas? 

Muchos programas de juegos necesitan identificar lo que hay en una determinada 
posicion de la pantalla. Por ejemplo, <£c6mo saber si un coche choca al correr 
contra la barrera?; o <£c6mo saber si nuestro disparo ha alcanzado a un invasor?. 
Utilizando TEST (x,y) para determinar el numero de tinta que cubre una 
determinada posicion grafica. Eligiendo cuidadosamente los colores que se 
emplean, esto puede servir para que el programa sepa que es lo que hay en una 
posicion que se ha alcanzado. 

Podemos dibujar en rosa todas las arahas, por ejemplo, y hacer que el 
programa reaccione cuando llevamos nuestra mosca a una posicion pintada de 
rosa: 

1 REM para aumentar la velocidad 
5 DEFINT c,x,y 
10 MODE 

19 REM caracteres mosca y arana 

20 SYMBOL 240,0,36,90,90,90,36,0,0 

30 SYMBOL 241,145,82,52,31,248,44,74,137 

40 mosca$=CHR$(240) 

50 arana$=CHR$(241) 

60 G0SUB 1000 

70 xmosca=300:ymosca=200 

80 xniievo=xmosca:yniievo=ymosca 
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90 xtest=xmosca:ytest=ymosca 

100 MOVE mosca, ymosca:PLOT xmosca,ymosca,l 

110 GOSUB 2000 

120 respuesta$=" " :moscamuerta=0 

129 REM se leen caracteres del teclado mientras la mosca siga viva 

130 WHILE respuesta$="" OR moscamuerta=0 
140 xnuevo=xmosca:ynuevo=ymosca 

150 respuesta$=L0WER$(INKEY$) 

159 REM la posicion (xtest,ytest) para comprobacion del color depende de la 
direccion del movimiento 

160 IF respuesta$="a" THEN ynuevo=ymosca+2:xtest=xnuevo+16:ytest=ynuevo+8 
170 IF respuesta$="z" THEN ynuevo=ymosca-2:xtest=xnuevo+16:ytest=yniievo-24 
180 IF respuesta$=" . " THEN xnuevo=xmosca+4:xtest=xnuevo+48:ytest=yniievo-8 
190 IF respuesta$="," THEN xnuevo=xmosca-4:xtest=xniievo-16:ytest=yniievo-8 
200 IF xnuevo<>xmosca OR ynuevo<>ymosca THEN GOSUB 2000 

210 WEND 
220 MODE 1 
230 END 

999 REM color rosa 

1000 MOVE 0,0 
1010 DRAW 0,0,11 
1020 TAG 

1029 REM dibujar 10 aranas aleatoriamente 

1030 FOR aranas=l TO 10 

1040 xarana=INT(600*RND(l)+20) 
1050 yarana=INT(300*RND(l)+20) 
1060 MOVE xarana,yarana 
1070 PRINT arana$; 
1080 NEXT 
1090 RETURN 

1999 REM se comprueba el color de la siguiente p osicion del caracter 

2000 color=TEST(xtest,ytest) 

2008 REM si es rosa, muere la mosca 

2009 REM no se considera tocar la arana el tocar solo la suprficie 

2010 IF color=ll THEN moscamuerta=l:S0UND 7,2000 2019 REM dibujo de la mosca en 
la nueva posicion 

2020 xmosca=xnuevo:ymosca=yniievo 
2050 MOVE xmosca,ymosca 
2060 PRINT mosca$; 
2070 RETURN 
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Podemos modificar el juego utilizando contadores de tiempo: 

120 respuesta$=" " :moscamuerta=0 

126 REM ahora hay que alcanzar con la mosca. la e squina superior izquierda 

127 REM lo mas rapidamente posible, puesto que c uenta el tiempo, 

128 tiempoinicial=TIME 

129 REM se leen caracteres del teclado mientras la mosca siga viva y no se 
alcance la esquina 

130 WHILE (respuesta$=" M OR moscamuerta=0) AND (xmosca<600 OR ymosca<300) 
140 xnuevo=xmosca:ynuevo=ymosca 

150 respuesta$=LOWER$(INKEY$) 

159 REM la posicion (xtest,ytest) para comprobacion del color depende de la 
direccion del movimiento 

160 IF respuesta$="a" THEN ynuevo=ymosca+2:xtest=xnuevo+16:ytest=ynuevo+8 
170 IF respuesta$="z" THEN ynuevo=ymosca-2:xtest=xnuevo+16:ytest=ynuevo-24 
180 IF respuesta$=" . " THEN xnuevo=xmosca+4:xtest=xnuevo+48:ytest=ynuevo-8 
190 IF respuesta$="," THEN xnuevo=xmosca-4:xtest=xnuevo-16:ytest=ynuevo-8 
200 IF xnuevo<>xmosca OR ynuevo<>ymosca THEN G0SUB 2000 

210 WEND 

215 TAG0FF:CLS 

220 IF moscamuerta=0 THEN PRINT "Tiempo: "TIME-tiempoinicial 

230 END 



Una variante del comando TEST es el TESTR; la diferencia estriba en que en 
TESTR la posicion que examina se define por su desplazamiento relativo desde la 
posicion actual. Por ejemplo, TESTR (10, -5) examina el punto que se encuentra 
10 unidades a la derecha y 5 unidades arriba del actual. 

El siguiente programa nos enseria como se utiliza; consiste en conducir un 
coche sobre una pista de carreras, sin salirse de la carretera que esta pintada en 
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negro. 

10 MODE 

20 GOSUB 1000 

30 GOSUB 2000 

40 END 

1000 PAPER 12 

1010 PEN 

1020 CLS 

1029 REM dibujo de la pista 

1030 ladox=3:ladoy=7 

1040 FOR y=ladoy TO ladoy+11 

1050 LOCATE ladox.y 

1060 PRINT CHR$(143)CHR$(143); 

1070 LOCATE ladox+15,y 

1080 PRINT CHR$(143)CHR$(143); 

1090 NEXT 

1100 xcom=7:ycom=5 

1109 FOR con=-l TO 1 

1110 LOCATE xcom,ycom+con 

1120 PRINT STRINGS (8, CHR$ (143)); 

1121 LOCATE xcom,ycom-l 
1130 LOCATE xcom,ycom+15+con 

1140 PRINT STRINGS (8, CHR$ (143)); 

1141 NEXT 
1150 TAG 
1160 color=0 

1170 xizq=32:xder=576 

1180 yabajo=150:yarriba=330 

1190 ycambi o=6 :xcambi o=32 

1200 PLOT xizq+xcambio,yarriba+ycambio,color 

1210 FOR con=l TO 4 

1220 yycambio=ycambio*con 

1230 xxcambio=xcambio*con 

1240 MOVE xizq+xxcambio,yarriba+yycambio 

1250 PRINT CHR$(143); 

1260 GOSUB 1600 

1280 MOVE xder-xxcambio,yarriba+yycambio 

1290 PRINT CHR$(143); 

1300 GOSUB 1600 

1320 MOVE xizq+xxcambio,yabajo-yycambio+8 

1330 PRINT CHR$(143); 

1340 GOSUB 1600 

1360 MOVE xder-xxcambio,yabajo-yycambio+8 

1370 PRINT CHR$(143); 

1380 GOSUB 1600 
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1400 NEXT 

1408 REM dos caracteres representando un coche 

1409 REM uno para movimiento am'ba/abajo; otro para movimiento 
izquierda/derecha 

1410 SYMBOL 240,0,102,36,126,126,36,102,0 
1420 SYMBOL 241,0,90,126,24,24,126,90,0 
1430 lado$=CHR$(240) 

1440 arriba$=CHR$(241) 

1450 coche$=lado$ 

1460 xcoche=400:ycoche=338 

1470 PLOT xcoche+16,ycoche-4,3 

1480 MOVE xcoche,ycoche 

1490 PRINT coche$; 

1500 RETURN 

1600 FOR conl=l TO 4 

1610 MOVER -32,-16 

1620 PRINT CHR$(143); 

1630 NEXT 

1640 RETURN 

1999 REM examen del teclado 

2000 golpe=0 

2010 xcambio=0:ycambio=0 

2020 WHILE golpe=0 

2030 respuesta$=L0WER$(INKEY$) 

2040 IF respuesta$="a" THEN xcambio=0:ycambio=2:coche$=arriba$:testx=- 

16:testy=2 

2050 IF respuesta$="z" THEN xcambio=0:ycambio=-2:coche$=arriba$:testx=- 

16:testy=-16 

2060 IF respuesta$="." THEN xcambio=4:ycambio=0:coche$=lado$:testx=0:testy=-8 

2070 IF respuesta$="," THEN xcambio=-4:ycambio=0:coche$=lado$:testx=- 

36:testy=-8 

2079 REM la barra de espacio para parar el coche 

2080 IF respuesta$=" " THEN xcambio=0:ycambio=0 

2089 REM solo se dibuja el coche si se ha movido 

2090 IF xcambio<>0 OR ycambio<>0 THEN G0SUB 3000 
2100 WEND 

2110 RETURN 

2999 REM se comprueba el color del punto siguiente a la posicion actual 

3000 color=TESTR(testx, testy) 

3009 REM si no es el de ink el coche esta fuera de la pista 

3010 IF color<>0 THEN golpe=l:S0UND 7,500 

3020 xcoche=xcoche+xcambi o :ycoche=ycoche+ycambi o 
3030 MOVE xcoche,ycoche 
3040 PRINT coche; 
3050 RETURN 
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Ejercicios 

l.Ariada nuevos obstaculos a la pista de carreras, como balas de paja amarillas o 
los restos calcinados de un coche. 

l.Cree una oruga verde, compuesta por varios caracteres, que se arrastre 
lentamente por la pantalla. 

2.Anada frutas rojas situadas aleatoriamente en la pantalla; cuando la oruga 
coma alguna de ellas, debe volverse azul y morirse. 

2.Programe el control de la oruga mediante el teclado, y ayudela a salvarse de los 
peligros moviendola verticalmente para evitar las frutas. El animal quedara a 
salvo cuando consiga alcanzar un paquete de hierba verde situado a la derecha 
de la pantalla. 
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3. Graficas y diagramas 

En el capitulo anterior nos nemos interesado por la manera en que se pueden 
emplear las tecnicas graficas en los juegos; pero, incluso en un microordenador, 
podemos encontrar muchas aplicaciones serias para estas tecnicas. En los 
ultimos anos han proliferado los programas para pequenas empresas, programas 
que llegan a tener un alto nivel de sofisticacion. Muchos de ellos tienen como 
objetivo primordial la presentacion mas adecuada de series de datos para facilitar 
su rapida comprension. En lugar de proporcionar largas listas llenas de cifras, lo 
que hacen es estructurar todos esos datos en forma de graficas, diagramas de 
barras, diagramas de sectores, etc., y de combinaciones de estos tipos. El color y 
las graficas de alta resolucion hacen que sea mas sencillo reconocer las carac- 
teristicas esenciales o las tendencias en una serie de datos. El empleo del 
ordenador proporciona ademas la posibilidad de recalcular y dibujar con rapidez 
una nueva grafica, para ilustrar, por ejemplo, las consecuencias de una 
disminucion de los precios. Vamos a concentrarnos en este capitulo en las formas 
de programar la realizacion de las tres formas mas usuales de representacion de 
datos: graficas, diagramas (o histogramas) de barras y diagramas de sectores. A 
estas alturas del libro es importante conocer ya algunas de las reglas basicas que 
deben respetarse cuando se desean desarrollar programas de aplicacion. 

En primer lugar, no hay que intentar escribir un programa como un todo. Es 
mas facil desarrollar, corregir y mejorar un programa que ha sido escrito en 
modulos, o sea, pequenas secciones de programa cada una de las cuales tiene un 
proposito determinado, como, por ejemplo, dibujar los ejes en una grafica o 
colorear una barra en un diagrama de barras. 

En segundo lugar, un programa no es nada flexible si esta ligado a valores 
especificos. Es posible que un programa para dibujar los ejes de una grafica 
funcione perfectamente, pero, si contiene lineas como 

100 MOVE 308,390 
110 DRAW 308,120 
120 DRAW 630,120 

sera dificil utilizarlo en otras circunstancias y, cuando haya que hacer otra 
grafica diferente, habra que reescribirlo completamente. Es mejor usar variables 
siempre que sea posible. Esto presenta varias ventajas: los nombres de variables 
pueden ser mas significativos que las tiras de numeros y el programa sera mas 
facil de adaptar o modificar al cabo de varios meses. 

Ademas, el empleo de variables permite escribir un programa de uso general 
que proporcione la grafica correspondiente a una serie de datos; a la hora de 
utilizarlo, los unicos cambios a hacer seran los propios datos, sin necesidad de 
reeditar el programa linea por linea para ponerlo de acuerdo con las nuevas 
circunstancias . 

Escribir un programa de esta manera requiere inicialmente mayor reflexion y 
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mas trabajo. Pero merece la pena el esfuerzo suplementario, ya que con ello se 
evita el escribir varios programas diferentes que realicen mas o menos la misma 
tarea. 

GRAFICAS DE PUNTOS Y LINEAS 

Cuando se va a realizar una grafica, la primera cuestion a resolver es la de la 
resolucion necesaria. En el Amstrad podemos elegir entre diferentes modos, con 
diferentes resoluciones horizontales y la misma vertical. En general, por su alta 
resolucion, es mejor el modo 2 para dibujar una grafica con muchos puntos. 
Pero, lamentablemente, en este modo solo se pueden utilizar dos colores. Cuando 
el numero de puntos a representar es inferior a 300, el modo 1 da un buen 
equilibrio entre resolucion y color: 320 puntos en horizontal y cuatro colores. 

El Amstrad esta disehado de forma que el cambio de modo de pantalla no 
afecte al intervalo de variacion de las coordenadas. Por ello, los programas que 
siguen funcionaran generalmente bien en cualquiera de los modos, a pesar de 
variar la resolucion. 

Vamos a comenzar por desarrollar un programa (muy corto). Por el momento 
dedicaremos a la grafica toda la pantalla, dejando el problema de la rotulacion 
para mas tarde. Escribiremos el programa como una serie de subrutinas. Con 
esto tendremos mayor flexibilidad para poder dibujar varias series de datos en la 
misma grafica, o dibujar varias graficas, sin necesidad de grandes cambios en el 
programa: 

10 MODE 1 
20 G0SUB 500 
30 G0SUB 800 
40 END 

499 REM dibujar los ejes 

500 ypunto=399 
510 xpunto=639 
520 MOVE 0,ypunto 
530 DRAW 0,0,1 
540 DRAW xpunto,0 
550 minx=200 

560 maxx=4000 

570 difx=maxx-minx 

580 miny=100 

590 maxy=1000 

600 dify=maxy-miny 

610 puntox=difx/xpunto 

620 puntoy=dify/ypunto 

690 RETURN 

799 REM leer puntos del data y dibujarlos 

800 READ numdepuntos 

805 DIM x(numdepuntos) ,y (numdepuntos) 
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810 FOR con=l TO numdepuntos 

815 READ x(con) :xdib=(x(con)-minx)/puntox 

820 READ y(con) :ydib=(y(con)-miny)/puntoy 

825 PLOT xdib,ydib 

930 NEXT 

990 RETURN 

1000 DATA 5,200,100,1000,200,1500,300,2500,600,4000,1000 




En las lineas 500 a 540 se dibujan los ejes. El origen se situa en la esquina 
inferior izquierda de la pantalla. Es importante conocer los valores maximo y 
minimo de los datos que hay que representar, de manera que se pueda realizar la 
grafica con una escala adecuada para que quepa en la pantalla. Estos valores se 
dan de manera explicita entre las lineas 550 a 600, aunque ya veremos mas tarde 
como el ordenador puede obtener por si mismo estos valores a partir de los datos 
a representar. Cuando el ordenador conoce la diferencia entre el maximo y el 
minimo, puede calcular la longitud unitaria en el eje X y el eje Y para que quepan 
todos los datos; esto es lo que hace en las lineas 610 y 620. El origen 
representara entonces el punto (min x, min y), y la esquina superior derecha de la 
pantalla el punto (max x, max y). Finalmente, el programa lee los valores de las 
coordenadas x e y de los distintos datos, los reduce a escala y los dibuja en las 
lineas 800 a 830. Por el momento los datos estan ordenados siguiendo el orden 
creciente para la coordenada x. Ya veremos mas adelante que hay que hacer 
cuando los datos estan ordenados aleatoriamente. 

Puede ejecutar varias veces el programa, cambiando en cada caso los valores 
de max x y de max y para ver el efecto que esto produce. Doblando el valor de 
max x el programa aplasta la grafica hacia la izquierda, al mismo tiempo que 
permite utilizar mayores valores de x que los que figuran en los datos. Doblando 
el valor de max y se produce un aplastamiento de la grafica hacia abajo. Cosas 
similares ocurren al cambiar min x y min-y. Si le disgusta el hecho de que el 
origen represente (100, 200) en lugar de (0, 0), cambie los valores de min xy min 
y a 0. (Observe que esto hace que en una gran zona de la pantalla no se dibujen 
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puntos.) Recuerde que los datos de la linea 1000 estan en determinado intervale-, 
y que, cambiando los valores de min x, etc., puede perder puntos de la grafica. 

La ejecucion del programa revela algunos problemas, como que los puntos y la 
grafica son algo dificiles de apreciar. Algunos cambios permiten mejorar la 
situacion: 

10 MODE 1 
20 G0SUB 500 
30 G0SUB 800 
40 END 

499 REM dibujar los ejes 

500 ypunto=399 
510 xpunto=639 
520 MOVE 0,ypunto 
530 DRAW 0,0,1 
540 DRAW xpunto,0 
550 mina= 00 

560 maxx=4000 

570 difx=maxx-minx 

580 miny=100 

590 maxy=1000 

600 dify=maxy-miny 

610 puntox=difx/xpunto 

620 puntoy=dify/ypunto 

690 RETURN 

799 REM leer puntos del data y dibujarlos 

800 READ numdepuntos 

805 DIM x (numdepuntos) ,y (numdepuntos) 

806 READ tintaO.tintal 

807 INK O.tintaO 

808 INK l.tintal 

809 PAPER 0:PEN 1 

810 FOR con=l TO numdepuntos 

815 READ x(con) :xdib=(x(con)-minx)/puntox 

820 READ y(con) :ydib=(y(con)-miny)/puntoy 

825 PLOT xdib,ydib 

830 NEXT 

990 RETURN 

1000 DATA 5,0,24,200,100,1000,200,1500,300,2500,600,4000,1000 
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Ahora, los colores que se utilizan en la grafica se especifican en la sentencia 
DATA. De la misma forma podriamos especificar MODE, pero vamos a 
mantenernos en el modo 1. Podemos hacer mas visibles los puntos dibujando en 
su lugar una cruz o un cuadrado. Esto es muy sencillo de hacer utilizando 
movimientos relativos: 

10 MODE 1 
20 GOSUB 500 
30 GOSUB 800 
40 END 

499 REM dibujar los ejes 

500 ypunto=399 
510 xpunto=639 
520 MOVE O.ypunto 
530 DRAW 0,0,1 
540 DRAW xpunto,0 
550 minx=200 

560 maxx=4000 

570 difx=maxx-minx 

580 miny=100 

590 maxy=1000 

600 dify=maxy-miny 

610 puntox=difx/xpunto 

620 puntoy=dify/ypunto 

690 RETURN 

799 REM leer puntos del data y dibujarlos 

800 READ numdepuntos 

805 DIM x (numdepiintos) ,y (numdepiintos) 

806 READ tintaO.tintal 

807 INK O.tintaO 

808 INK l.tintal 
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809 PAPER 0:PEN 1 

810 cruzx=10 

811 cruzy=10 

814 FOR con=l TO numdepuntos 

815 READ x(con) :xdib=(x(con)-minx)/puntox 
READ y(con) :ydib=(y(con)-miny)/puntoy 
PLOT xdib,ydib 



820 
825 
830 
840 
850 
860 
870 



MOVER 
DRAWR 
MOVER 
DRAWR 
MOVER 



880 NEXT 
990 RETURN 
1000 DATA 5. 



-cruzXjCruzy 

2*cruzx,-2*cruzy 

-2*cnizx,0 

2*cnjzx,2*criizy 

-cruzx,-criizy 



0,24,200,100,1000,200,1500,300,2500,600,4000,1000 



Los datos para los brazos de la cruz se fijan mediante dos variables, en lugar 
de tomarlos de la sentencia DATA. Es mejor asi, ya que seran datos que no 
cambiaran de una a otra ejecucion del programa. Puede modificar las longitudes 
para que la cruz sea mayor o menor que la del ejemplo; bastara con cambiar dos 
lineas. 




El programa mejorara si damos la opcion de unir los sucesivos puntos de la 
grafica. Para ello se utiliza la variable unir que, segun el valor que tome, hace que 
los puntos se dibujen unidos o sueltos: 

10 MODE 1 
20 GOSUB 500 
30 GOSUB 800 
40 END 

499 REM dibujar los ejes 

500 ypunto=399 



62 



Tecnicas de programacion de grdficos en el Amstrad, rev 2009 (0.90 preliminar) 



510 xpunto=639 

520 MOVE O.ypunto 

530 DRAW 0,0,1 

540 DRAW xpunto.O 

550 minx=200 

560 maxx=4000 

570 difx=maxx-minx 

580 miny=100 

590 maxy=1000 

600 dify=maxy-miny 

610 puntox=difx/xpunto 

620 puntoy=dify/ypunto 

690 RETURN 

799 REM leer puntos del data y dibujarlos 

800 READ numdepuntos 

805 DIM x (numdepuntos) ,y (numdepuntos) 

806 READ tintaO.tintal 

807 INK O.tintaO 

808 INK l.tintal 

809 PAPER 0:PEN 1 

810 cruzx=10 

811 cruzy=10 

812 unir=l 

814 FOR con=l TO numdepuntos 

815 READ x(con) :xdib=(x(con)-minx)/puntox 

816 x(con)=xdib 

820 READ y(con) :ydib=(y(con)-miny)/puntoy 

821 y(con)=ydib 
825 PLOT xdib,ydib 
830 MOVER -cruzx,cruzy 
840 DRAWR 2*cruzx,-2*cruzy 
850 MOVER -2*cruzx,0 

860 DRAWR 2*cruzx,2*cruzy 
870 MOVER -cruzx,-cruzy 

874 REM si unir esta a 1 los puntos se van uniendo 

875 IF unir=l AND con>l THEN DRAW x(con-l) ,y(con-l) 
880 NEXT 

990 RETURN 

1000 DATA 5,0,24,200,100,1000,200,1500,300,2500,600,4000,1000 
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El mayor defecto de este programa es la falta de rotulacion. Como el grafico 
esta pegado a la esquina inferior izquierda de la pantalla, no hay sitio para ella. 
Puede parecer que esto obliga a modificaciones importantes del programa. De 
hecho, el uso de variables y la capacidad del Amstrad para cambiar el origen 
hacen que sea muy sencillo mover los ejes: 

10 MODE 1 
20 GOSUB 500 
30 GOSUB 800 
40 END 

499 REM dibujar los ejes 

500 ypunto=399 
510 xpunto=639 
520 MOVE 0,ypunto 
530 DRAW 0,0,1 
540 DRAW xpunto.O 
550 minx=200 

560 maxx=4000 

570 difx=maxx-minx 

580 miny=100 

590 maxy=1000 

600 dify=maxy-miny 

610 puntox=difx/xpunto 

620 puntoy=dify/ypunto 

690 RETURN 

799 REM leer puntos del data y dibujarlos 

800 READ numdepuntos 

805 DIM x(numdepuntos) ,y (numdepuntos) 

806 READ tintaO.tintal 

807 INK O.tintaO 

808 INK l.tintal 

809 PAPER 0:PEN 1 
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810 cruzx=10 

811 cruzy=10 

812 unir=l 

814 FOR con=l TO numdepuntos 

815 READ x(con) :xdib=(x(con)-minx)/puntox 
x(con)=xdib 

READ y(con) :ydib=(y(con)-miny)/puntoy 
y(con)=ydib 
PLOT xdib,ydib 
MOVER -cnizx,criizy 
DRAWR 2*cruzx,-2*cruzy 
MOVER -2*cruzx,0 



816 
820 
821 
825 
830 
840 
850 
860 
870 
874 
875 



DRAWR 2*cruzx,2*cruzy 



MOVER -cruzXj-cruzy 

REM si unir esta a 1 los puntos se van uniendo 

IF unir=l AND con>l THEN DRAW x(con-l) ,y(con-l) 

880 NEXT 

990 RETURN 

1000 DATA 5,0,24,200,100,1000,200,1500,300,2500,600,4000,1000 




Hemos cambiado las antiguas lineas 500 y 510, puesto que ya no utilizamos 
toda la pantalla para la grafica. El resto del programa puede continuar igual; las 
lineas y puntos se dibujaran ahora en relacion al nuevo origen, como comprobara 
ejecutando el programa. Si cambia los valores de ox y oy, vera como no cambia el 
aspecto de la curva al trasladar el origen, salvo en lo que se refiere a su tamano. 

Ahora tenemos sitio para poner marcas en los ejes y escribir los corres- 
pondientes rotulos; pero esto no se puede hacer de manera totalmente 
automatica. Seguramente no tendremos problemas con el eje y, ya que parece 
que, al elegir el origen, hemos dejado sitio suficiente para los rotulos. 

Por otro lado, aunque tengamos sitio en el eje x para 10 divisiones, nada 
impide que consideremos mas conveniente hacer un numero menor, como, por 
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ejemplo, 5 divisiones. El numero maximo de divisiones esta sin embargo limitado 
por dos factores: la resolucion del modo que se emplee y la anchura de los 
caracteres que vayan a escribirse debajo de las marcas. Lo que el ordenador 
puede hacer es calcular en que casos vamos a obtener rotulos que se solapen 
unos con otros; pero no puede elegir por si mismo un intervalo menor que sea 
conveniente. Los numeros que representan distancias adecuadas, como 0.5, 10, 
20, 25, 100, etc., dependen mas bien de nuestros habitos y de las circunstancias. 
Vamos a hacer que seamos nosotros quienes elijamos los intervalos y que el 
ordenador rechace los valores que no sean razonables. El etiquetado se divide en 
dos partes: poner las marcas y escribir los rotulos. La primera accion puede no 
ser correcta si conduce a que los rotulos se solapen. Hay que informar al 
ordenador de la maxima longitud de los rotulos que deben escribirse, para que 
pueda calcular si podra o no colocarlos uno tras otro debajo del eje X: 

503 REM se oculta la grafica hasta que este completa 

504 INK 0,24:INK 1,24 

628 REM numero de marcas en los ejes x e y 

629 REM sin incluir la del origen 

630 xcantidad=5 
640 ycantidad=10 

649 REM distancia grafica entre las marcas 

650 xancho=INT(xpunto/xcantidad) 
660 yalto=INT(ypunto/ycantidad) 

668 REM cantidad maxima de caracteres de los numeros del eje x 

669 REM esto tendra que cambiarlo para adaptarlo a sus propios datos 

670 maxxcadena=4 

673 REM tamano de los caracteres en el modo 1 (en numero de puntos) 

674 REM el ancho debe Cambiar a 32 para el modo y a 8 para el modo 2 

675 charancho=16 

676 charalto=16 

679 REM se calcula la maxima longitud de la cadena en puntos graficos 

680 grafxcadena=charancho*maxxcadena 

688 REM no se rotulan los ejes cuando habria que poner numeros demasiado grandes 

689 REM o cuando la distancia entre marcas es menor que el temario de un 
caracter 

690 IF xancho<grafxcadena OR xancho<charancho THEN RETURN 

691 REM lo mismo para el eje y 

692 maxycadena=4 

694 grafycadena=charancho*maxycadena 

696 IF ox<grafycadena OR yalto<charalto THEN RETURN 

699 REM longitud de las marcas de los ejes 

700 xmarca=6 

702 ymarca=8 

703 REM el rotulo de cada marca sera de un valor xvalor mas alto que el anterior 

704 xvalor=difx/xcantidad 

706 TAG 

707 REM se avanza x cantidad veces para obtener el numero de marcas que 
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corresponde 

708 FOR con=0 TO xcantidad 

710 MOVE 0,0 

711 REM avance en el eje hasta en comienzo de la marca 

712 MOVE xancho*con,0 

713 REM dibujo de la marca 

714 DRAWR 0,-xmarca 

728 NEXT 

729 REM lo mismo para el eje y 

730 yvalor=dify/ycantidad 
732 FOR con=0 TO ycantidad 
734 MOVE 0,0 

736 MOVER 0,yalto*con 
738 DRAWR -ymarca,0 
754 NEXT 
790 RETURN 




Si no le gusta el tipo de marcas que nemos elegido, puede usted programar el 
que desee. Para ello basta con que modifique las lineas correspondientes. 

En lugar de volver a calcular las posiciones de las marcas en el momento de 
poner los rotulos, lo mejor es incluir una rutina que ponga el texto al mismo 
tiempo que las marcas: 

708 FOR con=0 TO xcantidad 

710 MOVE 0,0 

711 REM avance en el eje hasta en comienzo de la marca 

712 MOVE xancho*con,0 

713 REM dibujo de la marca 

714 DRAWR 0,-xmarca 

715 REM posicion para escribir el rotulo de la marca 

716 MOVER -charancho/2,-xmarca 
718 numero$=STR$(minx+con*xvalor) 
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719 
720 
722 
723 
724 
726 



REM se trunca el numero si es demasiado largo 

numero$=MID$(numero$,2,maxxcadena) 

1 ongitud=LEN(numero$) 

REM se suprime el punto decimal si es el ultimo caracter 

" THEN numero$=MID$(numero$,l,longitud-l) 



IF MID$(numero$,longitud)=' 
PRINT numero$; 

728 NEXT 

729 REM lo mismo para el eje y 

730 yvalor=dify/ycantidad 
732 FOR con=0 TO ycantidad 
734 MOVE 0,0 

736 MOVER 0,yal to*con 

738 DRAWR -ymarca,0 

740 MOVER -grafycadena,charalto/2 

742 numero$=STR$ (mi nyl -con*yval or) 

744 numero$=MID$(numero$,2,maxycadena) 

746 longitud=LEN(numero$) 

748 IF MID$(numero$,langitud)="." THEN numero$=MID$(numero$,l,longitud-l) 

749 REM esto es para alinear los numeros junto a las marcas 

750 IF LEN(numero$)<maxycadena THEN numero$=STRING$(maxycadena-LEN(numero$) 
")+numero$ 

752 PRINT numero$; 
754 NEXT 
790 RETURN 




Tambien podemos poner un rotulo en cada uno de los ejes y escribir un titulo 
general de la grafica. Para ello el origen debe estar elegido de manera que quede 
sitio para todo esto. 

755 REM rotulos de los ejes 
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756 xrotulo$="numero de ratones" 

758 yrotulo$="gramos de queso roidos" 

759 REM longitud del rotulo en puntos graficos 

760 xrotul olon=LEN (rot ulo$)*charancho 

761 REM espacio antes del rotulo, para que quede centrado 

762 xrotul ocom= (xpunto-xrotul ol on) /2 

763 REM colocarse a la altura conveniente debajo del eje x para escribir el 
rotulo 

764 MOVE xrotul ocom,-2*charal to 

766 PRINT xrotul o$; 

767 REM lo mismo para el eje y 

768 yrotul ol on=LEN (yrotul o$) *charal to 

770 yrotul ocom= (ypunto+yrotul ol on) /2 

771 REM hay que escribir separadamente cada letr a del rotulo, ya que va en 
vertical 

772 FOR con=l TO LEN(yrotulo$) 

773 REM se extrae un caracter del rotulo 

774 char$=MID$(yrotulo$,con,l) 

775 REM ponerse convenientemente a la izquierda para imprimir el caracter 

776 MOVE -charancho*(maxycadena+2) ,yrotulocom-charalto*(con-l) 
778 PRINT char$; 

780 NEXT 
790 RETURN 




Todavia no esta complete* el programa, ya que solo puede trabajar con datos 
previamente ordenados. En su forma actual puede ser util para muchas cosas, 
como por ejemplo para mediciones de la precipitacion de lluvia en un periodo de 
tiempo, o el estado de su cuenta bancaria mes a mes (aunque esto puede 
obligarle a poner un eje negativo). Cuando los datos no estan ordenados de esta 
manera, hay que hacer que el ordenador los vaya leyendo y reordenando en caso 
necesario. Para ello se almacenan los datos en un vector y se procede a su 
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clasificacion: 

10 MODE 1 
20 GOSUB 500 
30 GOSUB 800 
40 END 

499 REM dibujar los ejes 

500 ox=100:oy=50 
505 ORIGIN ox,oy 
510 ypunto=399-oy 
515 xpunto=639-ox 
520 MOVE 0,ypunto 
530 DRAW 0,0,1 
540 DRAW xpunto.O 
550 minx=200 

560 maxx=4000 

570 difx=maxx-minx 

580 miny=100 

590 maxy=1000 

600 dify=maxy-miny 

610 puntox=difx/xpunto 

620 puntoy=dify/ypunto 

690 RETURN 

799 REM leer puntos del data y dibujarlos 

800 READ numdepuntos 

805 DIM x (numdepuntos) ,y (numdepuntos) 

806 READ tintaO.tintal 

807 INK O.tintaO 

808 INK l.tintal 

809 PAPER 0:PEN 1 

810 cruzx=10 

811 cruzy=10 

812 unir=l 

814 FOR con=l TO numdepuntos 

815 READ x(con) :xdib=(x(con)-minx)/puntox 

816 x(con)=xdib 

820 READ y(con) :ydib=(y(con)-miny)/puntoy 

821 y(con)=ydib 
825 NEXT 

829 REM ordenar la matriz x 

830 FOR con= 2 TO numdepuntos 
840 FOR valor=con TO 2 STEP -1 

850 IF x(valor)<x(valor-l) THEN GOSUB 1500 ELSE valor=2 

860 NEXT 

870 NEXT 

880 FOR con=l TO numdepuntos 

890 PLOT x(con),y(con) 
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900 MOVER -cruzx.cruzy 

910 DRAWR 2*cruzx,-2*cruzy 

920 MOVER -2*cruzx,0 

930 DRAWR 2*cruzx,2*cruzy 

940 MOVER -cruzx,-cruzy 

950 REM si unir esta a 1 los puntos se van uniendo 

960 IF unir=l AND con>l THEN DRAW x(con-l) ,y(con-l) 

970 NEXT 

990 RETURN 

999 REM los datos estan ahora desordenados 

1000 DATA 5,0,24,1000,200,4000,1000,200,100,2500,600,1500,300 

1499 REM cambio en las matrices para que la coordenada x mas baja vaya pn'mero 

1500 tempx=x(valor) :tempy=y(valor) 

1510 x(valor)=x(valor-l) :y(valor)=y(valor-l) 
1520 x(valor-l)=tempx:y(valor-l)=tempy 
1530 RETURN 




El metodo de clasificacion que se ha utilizado es el de insertion. Se ordenan las 
dos primeras coordenadas x; luego se coloca la tercera en su position correcta 
respecto de las otras dos. El proceso se repite con la cuarta y asi sucesivamente, 
hasta que todas quedan colocadas de menor a mayor 

La clasificacion de datos numericos o literales es uno de los temas mas 
importantes en informatica. Es posible que usted encuentre muy lento e 
procedimiento anterior si debe ordenar varios centenares de datos, y que prefiera 
otro metodo. El metodo de ordenacion de burbuja es muy utilizado cuando se 
tienen datos que ya estan algo ordenados. Sin embargo, para clasificacion de 
grandes cantidades de datos, la unica forma de conseguir metodos rapidos es 
programarlos en codigo de maquina. 

La ventaja de clasificar los datos es que al mismo tiempo se pueden calcular 
los valores de min x, min y, max x y max y. 
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El programa ha quedado con ciertos puntos debiles que usted podra rectificar 
en los ejercicios que siguen. Sin embargo, es adecuado para bastantes 
situaciones. 



Ejercicios 

1. iQue cambios hay que hacer para que el programa se pueda ejecutar en los 
modos o 2? ^Como reemplazar por variables los valores que dependen 
especificamente del modo de pantalla? 

2. En el programa, el eje Y se dibuja siempre a la izquierda y el eje X abajo. 
Modifique el programa para que admita valores positivos y negativos de x y 
de y y para que trace los ejes por el punto (0, 0). 

3. Modifique el programa para que admita simultaneamente varios conjuntos 
de datos y los represente con colores diferentes. Hagalo sin repetir 
secciones del programa; llame como subrutinas a las partes del actual 
programa que necesite. 

4. Modifique el programa para que dibuje dos graficas con escalas diferentes 
en las dos mitades superior e inferior de la pantalla. (Necesitara cambiar el 
valor de los limites de la variable y y cambiar dos veces el origen.) 

5. Mejore el programa para que los datos puedan ser almacenados y leidos de 
un fichero. 



DIAGRAMAS DE BARRAS 

Ahora que disponemos de un programa para realizar graficas, nos resultara 
bastante sencillo dibujar diagramas de barras, ya que hemos resuelto en la 
seccion anterior muchos de los problemas que se presentan. El proceso se 
simplifica bastante al tener que ocuparse solo de la coordenada Y; en el otro eje 
es muy facil calcular la anchura de las barras. Ademas, los datos ya estan 
ordenados, con lo que no hay que atender a su clasificacion. Las semejanzas con 
el programa precedente ponen de relieve las ventajas del uso sistematico de 
variables y subrutinas. 

10 MODE 1 
20 GOSUB 500 
30 GOSUB 800 
40 END 

499 REM dibujar los ejes 

500 ox=100:oy=50 

503 REM se oculta la grafica hasta que este completa 

504 INK 0,24:INK 1,24 

505 ORIGIN ox,oy 
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510 ypunto=399-oy 
515 xpunto=639-ox 
520 MOVE O.ypunto 
530 DRAW 0,0,1 
540 DRAW xpunto.O 
580 miny=100 
590 maxy=1000 
600 dify=maxy-miny 
620 puntoy=dify/ypunto 

628 REM numero de marcas; esta vez solo en el eje y 

629 REM xcantidad es el numero de barras 

630 READ niimerodebarras:xcantidad=niimerodebarras 
640 ycantidad=9 

649 REM distancia grafica entre las marcas 

650 xancho=INT(xpunto/xcantidad) 
660 yalto=INT(ypunto/ycantidad) 

673 REM tamano de los caracteres en el modo 1 (en numero de puntos) 

674 REM el ancho debe cambiar a 32 para el modo y a 8 para el modo 2. 

675 charancho=16 

676 charalto=16 
692 maxycadena=4 

694 grafycadena=charancho*maxycadena 

696 IF ox<grafycadena OR yalto<charalto THEN RETURN 

699 REM longitud de las marcas de los ejes 

700 xmarca=6 
702 ymarca=8 
706 TAG 

728 REM el rotulo de cada marca sera de un valor yvalor mas alto que el anterior 

729 REM se avanza ycantidad veces para obtener el numero de marcas que 
corresponde 

730 yvalor=dify /ycantidad 
732 FOR con=0 TO ycantidad 
734 MOVE 0,0 

736 MOVER 0,yalto*con 

738 DRAWR -ymarca,0 

740 MOVER -grafycadena,charalto/2 

742 numero$=STR$ (mi ny+con*yval or) 

744 numero$=MID$(numero$,2,maxycadena) 

746 longitud=LEN(numero$) 

748 IF MID$(numero$,longitud)=" ." THEN numero$=MID$(numero$,l,longitud-l) 

749 REM esto es para alinear los numeras junto a las marcas 

750 IF LEN(numero$)<maxycadena THEN numero$=STRING$(maxycadena-LEN(numero$) ," 
")+numero$ 

752 PRINT numero$; 

754 NEXT 

755 REM rotulos de los ajes 

756 xrotulo$="numero de ratones" 
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758 yrotulo$="gramos de queso roidos" 

759 REM longitud del rotulo en puntos graficos 

760 xrotulolon=LEN(xrotulo$)*charancho 

761 REM espacio antes del rotulo, para que quede centrado 

762 xrotul ocom= (xpunto-xrotul ol on) /2 

763 REM colocarse a la altura conveniente debajo del eje x para escribir el 
rotulo 

764 MOVE xrotulocom,-2*charalto 

766 PRINT xrotulo$; 

767 REM lo mismo para El eje y 

768 yrotul ol on=LEN (yrotul o$) *charal to 

770 yrotul ocom= (ypunto+yrotul ol on) /2 

771 REM hay que escribir separadamente cada letra del rotulo, ya que va en 
vertical 

772 FOR con=l TO LEN(yrotulo$) 

773 REM se extrae un caracter del rotulo 

774 char$=MID$(yrotulo$,con,l) 

775 REM ponerse convenientemente a la izquierda para imprimir el caracter 

776 MOVE -charancho*(maxycadena+2) ,yrotulocom-charalto*(con-l) 
770 PRINT char$; 

780 NEXT 
790 RETURN 

799 REM leer puntos del data y dibujar las barras 

800 DIM y(numerodebarras) 

806 READ tintaO.tintal 

807 INK O.tintaO 

808 INK l.tintal 

809 PAPER 0:PEN 1 

814 FOR con=l TO numerodebarras 

815 READ y 

816 x(con)=xdib 

819 REM altura de la barra calculada a la escala conveniente 

820 y(con)=(y-miny)/puntoy 
825 NEXT 

829 REM reducir la anchura de las barras para dejar espacio entre el las 

830 barraancho=xancho-4 

840 FOR con=l TO numerodebarras 

850 MOVE 0,0 

860 DRAWR 0,y(con),l 

870 DRAWR barraancho,0 

880 DRAWR O.-y(con) 

890 ox=ox+xancho 

899 REM desplazamiento del origen para dibujar la barra siguiente 

900 ORIGIN ox,oy 
910 NEXT 

990 RETURN 

999 REM ahora solo se necesita la altura de las barras; la anchura es fija 
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1000 DATA 10,0,24,350,190,760,440,990,124,846,545,666,222 




La subrutina 800 dibuja cada barra mediante una serie de movimiento: 
referidos al origen. Desplazando este origen una distancia fija cada vez que se 
dibuja una barra, se puede utilizar un bucle para dibujar todas las barras. 

El dibujo queda mejor si se rellenan las barras con diferentes colores 

Lamentablemente, el Amstrad CPC464 1 no tiene un comando que rellene con 
un color un area determinada. Hay que rellenar las barras dibujando lineas 
sencillas de la manera mas rapida posible. En el ultimo capitulo veremos algunos 
procedimientos para acelerar un programa, pero ya podemos emplear aqui 
algunos de esos conocimientos: 

830 barraancho=xancho-4 

835 color=2 

840 FOR con=l TO numerodebarras 

844 REM se alterna el color de las barras 

845 IF color=3 THEN color=2 ELSE color=3 

848 REM las barras se rellenan mas rapidamente t omando un paso 

849 REM adecuado a la resolucion del modo de pan talla, para no repetir lineas 

850 FOR barra=0 TO barraancho STEP charancho/8 
860 MOVE 0+barra,0 

870 DRAWR 0,y(con) , color 

880 NEXT 

890 ox=ox+xancho 

899 REM desplazamiento del origen para dibujar la siguiente barra 

900 ORIGIN ox,oy 
910 NEXT 

990 RETURN 



1 Los modelos posteriores incluyen la orden FILL ("rellenar"). 
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Las lineas se dibujan verticalmente en lugar de horizontalmente, ya que 
muchas barras seran mas altas que anchas y se reduce asi el numero de lineas a 
dibujar. Pero rellenados de color realmente rapidos solo pueden realizarse con 
rutinas en codigo de maquina. 

Se obtiene una interesante variacion sobre los diagramas de barras dibujando 
estas con aspecto solido, lo que da a la figura un aire tridimensional: 

830 barraancho=xancho-4 

831 REM barralado es la anchura del lateral de la barra 

832 REM barrasuple es la altura suplementaria de la parte trasera de la barra 
sobre la delantera 

833 REM modifique los valores segun quiera que a parezcan mas o menos profundas 

834 barralado=barraancho/4:barrasuple=barralado 

835 color=2 

840 FOR con=l TO numerodebarras 

844 REM se alterna el color de las barras 

845 IF color=3 THEN color=2 ELSE color=3 

846 barrasuplecon=0 

848 REM tambien hay que rellenar el lateral de 1 a barra 

849 REM luego el ancho de la barra es barraanchq 1-barralado 

850 FOR barra=0 TO barraancho+barralado STEP charancho/8 

859 REM el fin de la linea se dibuja en otro color como ocurrira con todas 
las aristas de la bar ra 

860 PLOT 0+barra,0,l 

869 REM la linea hasta arriba de la barra 

870 DRAWR 0,y(con)+barrasuplecon, color 

871 REM el otro final de la linea tambien en color diferente 

872 PL0TR 0,0,1 

873 REM la linea siguiente debe ser un poco mas alta 

874 REM y asi hasta alcanzar la parte de atras de la barra 

875 barrasuplecon=barrasuplecon+charancho/8:IF barrasuplecon>barrasuple THEN 
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barrasupl econ=bartop 

880 NEXT 

881 REM las aristas de la barra van en otro color 

882 y=y(con):M0VE 0,0 

883 DRAWR 0,y,l 

884 DRAWR barraancho,0 

885 DRAWR 0,-y 

886 MOVER 0,y 

887 DRAWR barral ado, barrasupl e 

888 DRAWR 0,-y-barrasuple 
890 ox=ox+xancho 

899 REM desplazamiento del origen para dibujar 1 a siguiente barra 

900 ORIGIN ox,oy 
910 NEXT 

990 RETURN 




Ejercicios 

1. Modifique el programa para que funcione correctamente en modo O y en 
mode- 2. 

2. Modifique el programa para que las barras del diagrama sean horizontales 
en lugar de verticales. 

3. Cambie el diagrama en 3D para que se pueda representar una sucesion de 
diagramas, cada uno al lado del anterior. 



DIAGRAMAS DE SECTORES 

La realizacion de un diagrama de sectores (o sea, un histograma consistente en 
un circulo o un pequeno cilindro dividido en sectores de tamario proporcional a la 
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magnitud de los datos) tiene poco en comun con el dibujo de graficas y de 
diagramas de barras. Por eso vamos a disenar un programa completamente 
nuevo, aunque conservando algunas caracteristicas generales de los anteriores, 
como el empleo sistematico de variables y subrutinas. Para este diserio es 
importante la resolucion, puesto que necesitamos dibujar una circunferencia con 
bastante exactitud. Pero tambien lo es el color, asi que vamos a tomar una 
decision de compromiso y a elegir el modo 1 . 

El programa siguiente construye uno de estos diagramas, dividiendo un circulo 
en sectores de tamario adecuado, cada uno con su contorno coloreado: 

10 MODE 1 

20 GOSUB 1000 

30 GOSUB 2000 

40 GOSUB 3000 

50 END 

997 REM leer del DATA las coordenadas del centro y el radio 

1000 READ centrox,centroy 

1010 READ radio 

1020 READ numdeval 

1070 DIM valor (numdeval ) ,angulo (numdeval ) 

1039 REM sumar todos los valores para calcular 1 as divisiones del circulo 

1040 total valor=0 

1050 FOR con=l TO numdeval 

1060 READ valor (con) 

1070 total valor=totalvalor+val or (con) 

1080 NEXT 

1090 RETURN 

1100 DATA 200,200,120,4,1,2,7,4 

1999 REM calculo del angulo de cada sector 

2000 FOR con=l TO numdeval 

2010 angulo (con )=2*PI*val or (con) /total valor 

2020 NEXT 

2030 RETURN 

3000 REM cambiaremos esto enseguida 

3010 comangulo=0 

3020 incremento=PI/60 

3030 color=l 

3039 REM para modo hacer numdecol=15 (sin contar el color del fondo) 

3040 numdecol=3 

3050 FOR con=l TO numdeval 

3057 REM angulo en que termina el sector 

3060 finangulo=comangulo+angulo(con) 

3069 REM color del sector 

3070 color=l+(color+l) MOD numdecol 

3079 REM asegurarse de que el primero y el ultimo sector son de col ores 
diferentes 
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3080 IF con=numdeval AND numdeval MOD numdecol=l THEN color=l+(color+l) MOD 

numdecol 

3090 MOVE centrox,centroy:DRAW 

centrox+radio*SIN(comangulo) ,centroy+radio*COS(comangulo) , col or 

3099 REM dibujo del sector 

3100 FOR angulo=comangulo TO finangulo STEP incremento 

3110 DRAW centrox+radio*SIN (angulo) ,centroy+radio*COS(angulo) 
3120 NEXT 

3129 REM angulo de comienzo del nuevo sector 

3130 comangulo=finangulo 
3140 NEXT 

3150 RETURN 




La subrutina lOOO lee de lineas DATA los valores que hay que representar y 
calcula su suma. La proporcion entre un valor y la suma total es lo que da el 
angulo que ocupa el correspondiente sector; este angulo se calcula con la rutina 
2000. La rutina 3000 dibuja cada sector con su color. 

Al ejecutar el programa vera que, si el radio del diagrama es grande, el dibujo es 
lento. Algo se puede ganar en velocidad si se toma como nuevo origen el centro 
del circulo: 

3000 ORIGIN centrox,centroy 

3090 MOVE 0,0: DRAW radio*SIN(comangulo) ,radio*C0S(comangulo) , col or 

3099 REM dibujo del sector 

3100 FOR angulo=comangulo TO finangulo STEP incremento 
3110 DRAW radio*SIN(angulo),radio*COS(angulo) 

3120 NEXT 

Los calculos mas largos son, no obstante, los de los senos y cosenos, y esto, a 
diferencia de lo que ocurre con otros calculos, no se puede mejorar con el empleo 
de numeros enteros. Vamos a modificar algunas cosas para minimizar estos 
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calculos; la idea puede servir para objetivos distintos del que nos ocupa. Ahora 
solo se calcula un seno y un coseno: 

2000 radval=radio*4 

2005 FOR con=l TO numdeval 

2010 angul o (con )=radval*val or (con) /total valor 

2020 NEXT 

2030 RETURN 

3000 ORIGIN centrox,centroy 

3009 REM al emplear enteros en el bucle aumenta la velocidad 

3010 DEFINT c 
3030 color=l 

3035 elseno=SIN(2*PI/radval):elcoseno=C0S(2*PI/radval) 
3037 xl=radio:yl=0 

3039 REM para modo hacer numdecol=15 (sin cont ar el color del fondo) 

3040 numdecol=3 

3050 FOR con=l TO numdeval 

3069 REM color del sector 

3070 color=l+(color+l) MOD numdecol 

3079 REM asegurarse de que el primero y el ultim o sector son de col ores 
diferentes 

3080 IF con=numdeval AND numdeval MOD numdecol =1 THEN color=l+(color+l) MOD 
numdecol 



3090 


REM 


3099 


REM dibujo del sector 


3100 


FOR conl=l TO angulo(con) 


3110 


x=xl*el coseno-yl*el seno 


3112 


y=xl*el seno+yl*el coseno 


3114 


PLOT x,y, color 


3116 


xl=x:yl=y 


3120 


NEXT 


3129 


REM trazar la linea hasta el centro para es te sector 


3130 


MOVE 0,0: DRAW x,y 


3140 


NEXT 


3150 


RETURN 
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Estos diagramas de sectores son mas expresivos cuando los sectores se re- 
llenan de color; la forma mas sencilla de hacerlo es dibujar radios de colores. 
Para ello, se puede modificar el programa que teniamos al principio con las lineas 
que siguen: 

3020 incremento=PI/500 

3109 REM esta vez se dibujan lineas desde el centro 

3110 MOVE centrox,centroy:DRAW centrox+radio*SIN(angulo) , 
centroy+radio*COS(angulo) 




Ahora es incluso mas lento, pero hay que darse cuenta de que, si no se juntan 
mucho los radios, hay puntos que quedan sin tocar y permanecen del color del 
fondo. Una idea para dar mas velocidad seria colorear solo uno de cada dos 
sectores, dejando los otros del color del fondo. Se ganara aun mas tiempo si se 
elige cuidadosamente el orden de los sectores para que los que se rellenan sean 
los mas pequehos. Entre otros defectos, esta solucion tiene el inconveniente de 
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que obliga a rotular los sectores para que el diagrama no sea confuse-. 

Se puede aumentar la rapidez del programa teniendo almacenadas las 
coordenadas de los puntos de la circunferencia en un par de vectores, para no 
tener que calcularlos en el momento de realizar el diagrama. Si el programa esta 
escaso de memoria es una mala solucion, ya que se requieren dos vectores 
bastante largos. Esta es la solucion que adoptamos con el siguiente programa 
alternativo: 

10 MODE 1 
20 GOSUB 1000 
30 GOSUB 2000 
40 GOSUB 3000 
50 END 

999 REM muchas variables pueden ser enteras - esto aumenta la velocidad 

1000 DEFINT a.c.n.r.v 
1005 READ centrox,centroy 
1010 READ radio 

1020 READ numdeval 

1030 DIM valor (numdeval ) ,angulo (numdeval ) 

1039 REM sumar todos los valores para calcular las divisiones del circulo 

1040 total valor=0 

1050 FOR con=l TO numdeval 

1060 READ valor(con) 

1070 total valor=totalvalor+val or (con) 

1080 NEXT 

1090 RETURN 

1100 DATA 200,200,120,4,1,2,3,4 

1998 REM radval influye en la velocidad del dibujo y en la densidad del 
rellenado 

1999 REM si se toma radio*3 mejora la velocidad aunque quedan puntos sin 
rellenar 

2000 radval =radio*10 

2001 totangulo=0 

2005 FOR con=l TO numdeval 

2010 angul o (con) =radval *val or (con) /total val or 

2015 totangulo=totangulo+angulo(con) 

2020 NEXT 

2030 RETURN 

3000 ORIGIN centrox,centroy 

3010 DEFINT c 

3020 contangulo=0 

3030 color=l 

3033 REM solo se necesita calcular un seno y un coseno por este metodo 

3034 REM esto da mas velocidad 

3035 elseno=SIN(2*PI/radval) :elcoseno=C0S(2*PI/radval ) 

3036 xl=radio:yl=0 
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3037 REM calculo de las coordenadas de los punto s de la circunferencia 

3038 LOCATE 5,10:PRINT "espere, por favor":GOSUB 4000:CLS 

3039 REM para modo hacer numdecol=15 (sin cont ar el color del fondo) 

3040 numdecol=3 

3050 FOR con=l TO numdeval 

3069 REM color del sector 

3070 color=l+(color+l)MOD numdecol 

3079 REM asegurarse de que el primero y el ultim o sector son de col ores 
diferentes 

3080 IF con=numdeval AND numdeval MOD numdecol =1 THEN color=l+(color+l)MOD 
numdecol 

3090 REM 

3099 REM dibujo del sector 

3100 FOR conl=contangulo TO contangulo+angulo(con) 
3114 MOVE 0,0:DRAW x(conl) ,y(conl) , color 

3120 NEXT 

3124 REM posicion inicial del siguiente sector 

3125 contangulo=contangulo+angulo(con) 
3140 NEXT 

3150 RETURN 

3997 REM normal mente convendra realizar este calculo en los programas largos 

3998 REM en algun momento del programa en el que la espera 

3999 REM no resulte excesivamente larga 

4000 DIM x(totangulo),y(totangulo) 
4010 FOR con=l TO totangulo 

4020 x=xl*elcoseno-yl*elseno 

4030 y=xl*elseno+yl*elcoseno 

4040 x(con)=x 

4050 y(con)=y 

4060 xl=x:yl=y 

4070 NEXT 

4080 RETURN 

Observara que es dificil rellenar completamente una superficie con un color. La 
unica forma de hacerlo bien es dibujar uno por uno los puntos individuales, 
como veremos en el capitulo siguiente. 

Ejercicios 

1. Modifique el programa que dibuja diagramas de sectores de forma que 
ademas los rotule. 

2. Modifique el programa para que dibuje en la pantalla varios diagramas de 
sectores con el mismo radio. (Aqui si que es importante almacenar las 
coordenadas de la circunferencia en dos vectores, para no calcular varias 
veces los mismos datos.) 

3. Escriba un programa que dibuje diagramas de sectores sucesivos, unos 
encima de otros, con los sectores rellenos de color. 
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4. Formas y dibujos 

En el capitulo 1 nemos visto que es muy facil realizar figuras geometricas con 
solo los comandos MOVE y DRAW: 



10 MODE 1 

20 x=320:y=200 

28 REM maximo da la longitud de los brazos de la figura 

29 REM pruebe cambiando maximo y paso 

30 maximo=200 
40 paso=5 

50 FOR con=0 TO maximo STEP paso 

60 MOVE x-con,y 

70 DRAW x,y+(maximo-con) 

80 DRAW x+con,y 

90 DRAW x,y-(maximo-con) 

100 DRAW x-con,y 

110 NEXT 




En las clases de geometria para nirios se hacen muchas figuras de este estilo. 
Se producen algunos efectos bastante espectaculares tomando una serie de 
puntos y uniendolos 'todos con todos' mediante rectas. El siguiente programa 
construye un poligono con el numero de lados que se desee y despues une cada 
vertice con todos los demas: 

10 MODE 1 

20 radio=150 

30 x=320:y=200 

40 INPUT"Cuantos lados tiene la figura" ;lados 

50 CLS 

60 paso=2*PI/lados 

70 DIM x(lados),y(lados) 

80 con=0 

90 ORIGIN x,y 
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100 MOVE 0, radio 

110 FOR angulo=0 TO 2*PI STEP paso 

120 DRAW radio*SIN(angulo),radio*COS(angulo) 

130 x(con)=radio*SIN(angulo) :y(con)=radio*C0S(angulo) 

140 con=con+l 

150 NEXT 

155 DRAW 0, radio 

160 FOR conl=l TO lados-1 

170 FOR con2=conl+l TO lados 

180 MOVE x(conl),y(conl) 

190 DRAW x(con2),y(con2) 

200 NEXT 

210 NEXT 





Figura 4. 1. Ejemplo de curva formada uniendo puntos. 
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Queda mucho mejor si se dibuja con colores: 

155 color=l:DRAW 0, radio, col or 

160 FOR conl=l TO lados-1 

170 FOR con2=conl+l TO lados 

173 REM experiments con los colores en la linea 175 

174 REM cambie el MOD para ver el efecto 

175 color=l+(color+l) MOD 3 
180 MOVE x(conl),y(conl) 

190 DRAW x(con2),y(con2),color 
200 NEXT 
210 NEXT 




En este capitulo vamos a ver como se pueden producir figuras mucho mm 
elaboradas. Muchas de ellas estan basadas en el uso de las funciones sen y 
coseno. Pero no se preocupe por las matematicas; los programas estan 
completamente escritos, aunque proporcionan muchas oportunidades para que 
usted de otros valores a ciertas variables para estudiar lo que ocurre. 

Tejidos de colores 

Con el comando ORIGIN y con los desplazamientos relativos es facil dibujar 
figuras con simetria. El siguiente programa coloca el origen en centro de la 
pantalla y crea una figura uniendo puntos del nuevo eje con puntos de la parte 
superior y de la parte inferior de la pantalla. La coordenada X se multiplica por 
un factor que hace que las lineas converjan o diverjan: 

10 MODE 1 

19 REM se usan numeras enteros para mayor velocidad 

20 DEFINT c.f.x.y 

30 xorigen=320:yorigen=200 

39 REM cambie estos factores para obtener diferentes efectos 
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40 factorl=3:factor2=l 

50 factord=factorl-factor2 

60 ORIGIN xorigen,yorigen 

69 REM el bucle dibuja cuatro rectas de posicion variable 

70 FOR con=0 TO 200 

80 MOVE 0,0:M0VER con*factorl,0 
90 DRAWR -con*factord,200 
100 MOVER -con*factor2*2,0 
110 DRAWR -con*factord,-200 
120 DRAWR con*factord,-200 
130 MOVER con*factor2*2,0 
140 DRAWR con*factord,200 
150 NEXT 




Observe que el DEFINT de la linea 20 esta puesto para dar rapidez al pro- 
grama. No siempre sera posible trabajar con variables enteras a causa de los 
senos y cosenos, que dan siempre decimales. 

Los factores de la linea 40 se pueden cambiar, pero conviene evitar que sean 
mayores de 15, pues entonces las lineas se separan excesivamente. Las 
sorprendentes formas que surgen en el dibujo provienen de que ciertos puntos 
quedan del color del fondo y tambien de los puntos en que las lineas se 
superponen. Experimente con factores diferentes y ejecute el programa en otros 
modos de pantalla. Obtendra una bonita alfombra anadiendo estas lineas: 

35 colorl=l:color2=l 

70 FOR con=0 TO 200 

80 MOVE 0,0:M0VER con*factorl,0 

90 DRAWR -con*factord,200,colorl 

100 MOVER -con*factor2*2,0 

110 DRAWR -con*factord,-200,color2 

120 DRAWR con*factord,-200,colorl 

130 MOVER con*factor2*2,0 
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140 DRAWR con*factord, 200,color2 

150 colorl=l+(colorl+l) MOD 4: color2=l+(color2+l) MOD 4 

160 NEXT 




La linea 1 50 hace que las rectas se dibujen usando ciclicamente los colores del 
mode- 1. La sentencia MOD sirve para dar el resto de la division; por ejemplo, 5 
MOD 4 es 1. Ademas, se suma un 1 para garantizar que el resultado no da el 
color del fondo; de otra manera, como 4 MOD 4=0 se obtendrian rectas que no 
contrastarian con el fondo. Las lineas 35 y 150 hacen que el aspecto final sea de 
un calido color naranja. Las tintas que se usan en las sentencias DRAWR son 1 
(amarilla) y 3 (roja). De lo apretadas que resulten las lineas (lo que depende de los 
factores de la linea 40) depende que el color quede naranja o a rayas rojas y 
amarillas. 

Ajustando los valores de colori y color2 y cambiando MOD 4 en la linea 150 por 
MOD 2 o MOD 3, se obtiene cierta variedad de efectos: figuras con cuadrantes 
opuestos en diferentes colores o compuestos unicamente de ciertos colores. Al 
ejecutar el programa en los otros modos cambian completamente los resultados, 
salvo que se ajusten los colores utilizados. 

Figuras de Lissajous 

Las figuras de Lissajous se obtienen utilizando una idea de la que ya nos 
servimos para dibujar una circunferencia. Entonces manteniamos constante el 
radio y tomabamos el seno y el coseno del mismo angulo para construir un punto 
de la circunferencia. Variando este angulo se obtienen figuras diversas: 

10 MODE 1 

20 xorigen=320:yorigen=200 

30 ORIGIN xorigen,yorigen 

40 MOVER 100,0 

50 FOR angulo=0 TO 32 STEP PI/30 

60 DRAW 100*C0S(angulo),100*SIN(angulo*0.8) 



88 



Tecnicas de programacion de grdficos en el Amstrad, rev 2009 (0.90 preliminar) 



70 NEXT 




Una alternativa puede ser unir con rectas los puntos de dos de estas curvas: 



10 MODE 1 

20 xorigen=320:yorigen=200 

30 ORIGIN xorigen,yorigen 

40 MOVER 100,0 

50 FOR angulo=0 TO 6.4 STEP PI/35 

55 MOVE 200*SIN(angulo),100*C0S(angulo) 

60 DRAW 100*C0S(angulo),200*SIN(angulo) 

70 NEXT 




O bien este otro ejemplo: 

10 MODE 1 

20 xorigen=320:yorigen=200 

30 ORIGIN xorigen,yorigen 

50 FOR angulo=0 TO 6.4 STEP PI/35 

55 MOVE 300*SIN(angulo),50*C0S(angulo) 

60 DRAW 10*C0S(angulo/5),200*SIN(angulo*2) 

70 NEXT 

O tambien con color: 




10 MODE 1 

20 xorigen=320:yorigen=200 

30 ORIGIN xorigen,yorigen 

40 color=l 

50 FOR angulo=0 TO 20 STEP PI/30 
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53 
55 
60 
70 NEXT 



IF angulo>10 THEN color=3 

MOVE 200*SIN(angulo),200*C0S(angulo) 

DRAW 100*C0S(angulo*3) ,200*SIN(angulo/3) , color 




Como en otras ocasiones, puede ensayar utilizando otros modos. El empleo del 
seno y del coseno para producir este tipo de dibujos son la consecuencia de 
bastantes experimentos, aunque al principio los resultados parezcan 
impredecibles. Sin embargo, pronto se aficionara a experimentar con el cambio de 
las variables o a investigar con otras funciones, como los cuadrados de senos y 
cosenos o sus productos por otros factores. 



Espirales 

Podemos crear una espiral utilizando nuestro programa de dibujar cir- 
cunferencias pero haciendo que el radio cambie constantemente: 

10 MODE 1 

20 GOSUB 1000 

100 END 

1000 xorigen=315:yorigen=190 
1010 ORIGIN xorigen,yorigen 
1020 color=l 

1029 REM valor del incremento del radio de la espiral cada vez que se dibuja un 
nuevo punto 

1030 radioincremento=0.5 
1040 paso=PI/30 

1049 REM angulofinal determina las vueltas que dara la espiral 

1049 REM un valor excesivo hace que se saiga de la pantalla 

1050 angulofinal=40 

1059 REM se comienza con radio 1 
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1060 radiocom=l 

1070 GOSUB 2000 

1900 RETURN 

2000 MOVE 0,0 

2010 FOR angulo=0 TO angulofinal STEP paso 

2020 DRAW radiocom*SIN(angulo) ,radiocom*COS(angiilo) , color 

2030 radi ocom=radi ocom+radi oi ncremento 

2040 NEXT 

2050 RETURN 




Anadiendo algunas lineas podemos hacer que se dibujen unas espirales dentro 
de otras: 

1079 REM otra espiral en el interior de la anterior; esta comienza con radio 10 

1080 radiocom=10 
1090 GOSUB 2000 

1099 REM ultima espiral en el interior de la anterior; esta comienza con radio 
20 

1100 radiocom=20 
1110 GOSUB 2000 
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La espiral puede animarse de un aparente movimiento de rotacion dibujando 
los puntos de diferentes colores y poniendo tintas intermitentes entre un color y 
el del fondo: 

10 MODE 1 

20 GOSUB 1000 

28 REM tintas que parpadeen entre dos colores 

29 REM con alternancia entre ambas 

30 INK 1,1,20 
12 INK 2,20,1 

50 respuesta$="" 

60 WHILE respuesta$="" 

70 respuesta$=INKEY$ 

80 WEND 

90 INK 1,24:INK 2,20 

100 END 

1053 REM ahora las dos tintas son iguales 

1054 REM al dar el mismo color a la tinta 1 que a la tinta 2 

1055 INK 1,20 

2014 REM las lineas se dibujan alternando las dos tintas 

2015 IF color=l THEN color=2 ELSE color=l 




Es una tecnica usual que volveremos a ver. 



Figuras repetitivas 



Muchos dibujos, como los habituales en los papeles pintados para las paredes, se 
obtienen mediante la simple repeticion de una figura: 

10 MODE 1 
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20 GOSUB 1000 
40 END 

998 REM datos para un octogono 

999 REM pruebe con otras figuras 

1000 xcom=0:ycom=0 

1001 REM xcom,ycom forman el centro del primer poligono 
1010 radio=40 

1020 lados=8 

1030 paso=2*PI/lados 

1040 color=2 

1050 GOSUB 3000 

1060 RETURN 

2998 REM se rellena la pantalla con copias del poligono 

2999 REM se detiene cuando las coordenadas del centro se salen de la pantalla 

3000 centrox=xcom:centroy=ycom 

3010 WHILE centrox<639 OR centroy<399 

3020 ORIGIN centrox,centroy 

3030 MOVE 0, radio 

3040 FOR angulo=0 TO 2*PI STEP paso 

3050 DRAW radio*SIN(angulo),radio*COS(angulo), color 

3060 NEXT 

3069 REM desplazamiento en la direccion de la x 

3070 centrox=centrox+radio*2 

3079 REM si se sale de la pantalla se recomienza mas arriba 

3080 IF centrox>639 AND centroy<399 THEN centrox=xcom:centroy=centroy+radio*2 
3090 WEND 

3100 RETURN 




Se logran resultados mas elaborados superponiendo un segundo conjunto de 
figuras al primero. Esto se puede hacer con figuras distintas o con figuras iguales 
pero de diferente tamario: 
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30 GOSUB 2000 

1999 REM datos para un hexagono 

2000 xcom=40:ycom=40 
2010 radio=40 

2020 lados=6 

2030 paso=2*PI/lados 

2040 color=2 

2030 GOSUB 3000 

2060 RETURN 




Las filas se pueden poner escalonadas comenzandolas en una de dos posi- 
ciones alternativas: 

3079 REM si se sale de la pantalla se recomienza mas arriba 

3080 IF centrox>639 AND centroy<399 THEN GOSUB 4000 
3090 WEND 

3100 RETURN 

3999 REM se escalona el comienzo de cada fila de poligonos 

4000 IF xcom=0 THEN xcom=radio ELSE xcom=0 
4010 centrox=xcom:centroy=centroy+radio*2 
4020 RETURN 
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Rotacion de una figura 

Es facil modificar el programa de dibujar circunferencias para que dibuje 
poligonos. El programa asi construido puede ser incorporado como subrutina en 
un programa que vaya alargando y rotando una figura, de manera que 
proporcione un dibujo en espiral: 

10 MODE 1 
20 GOSUB 1000 
30 GOSUB 1500 
40 END 

999 REM lectura de los datos del poligono 

1000 READ lados 
1010 READ radio 

1020 READ centrox,centroy 

1030 READ radiocambio,angulocambio 

1040 color=2 

1050 paso=2*PI/lados 

1060 angulocom=0:angulofin=2*PI 

1070 RETURN 

1500 ORIGIN centrox,centroy 

1508 REM no se dibuja el poligono cuando se hace demasiado grande 

1509 REM lo que significa radio>200 para los poligonos de los DATA 

1510 WHILE radio<200 

1520 MOVE radio*SIN(angulocom) ,radio*COS(angulocom) 

1530 FOR angul o=angulocom TO angulofin STEP paso 
1540 DRAW radio*SIN(angulo),radio*COS(angulo), color 

1550 NEXT 

1560 DRAW radio*SIN(angulocom) ,radio*C0S(angulocom) 

1569 REM se incrementa el radio 

1570 radio=radio+radiocambio 

1579 REM se gira el siguiente poligono para que forme angulo con el anterior 

1580 angul ocom=angul ocom+angul ocambi o 
1590 angul of i n=angul of i n+angul ocambi o 
1600 WEND 

1610 RETURN 

2000 DATA 3,20,300,200,5,1 
2010 DATA 3,20,300,200,3,10 
2020 DATA 4,30,300,200,4,3 
2030 DATA 6,20,300,200,1,6 
2040 DATA 6,20,300,200,6,1 
2050 DATA 8,10,300,200,5,10 
2060 DATA 8,10,300,200,5,2 
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Ejecute el programa tal como esta. Los DATA de la linea 2000 y siguientes 
proporcionan datos para varias figuras diferentes. Borre luego el primer DATA y 
vuelva a ejecutarlo, y asi repetidamente hasta agotar los ejemplos. De esta forma 
ira viendo el efecto que produce el cambio de numero de lados del poligono y de 
los coeficientes de alargamiento y de rotacion. 




Figura 4.2. Tipo de figura que se obtiene por rotacion de una forma basica 



Con el uso juicioso del color se pueden lograr efectos llamativos: 
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10 MODE 1 

20 GOSUB 1000 

29 REM las tintas 2 y 3 sol intermitentes y alternadas entre si 

30 GOSUB 1500 
40 INK 2,1,20 
50 INK 3,20,1 

59 REM se espera la pulsacion de una tecla 

60 respuesta$="" 

70 WHILE respuesta$="" 
80 respuesta$=INKEY$ 
90 WEND 

99 REM tintas normal es 

100 INK 2,20 
110 INK 3,6 
120 END 

1504 REM tinta 3 igual a la 2 

1505 INK 3,20 

1594 REM los poligonos se dibujan alternativamente con una y otra tinta 

1595 IF color=2 THEN color=3 ELSE color=2 




Al terminar de dibujar la figura, el programa produce un sorprendente efecto 
por la intermitencia entre el color del fondo y el otro color. 



Ejercicios 

1. l.Escriba una nueva version del programa que une los vertices de un po- 
ligono de manera que dibuje dos poligonos y una sus vertices. 

2. Investigue el efecto que producen en el programa de los tejidos de colores 
los cambios siguientes: otro paso distinto en el bucle FOR.. NEXT; dibujar 
sobre la primera figura otra con factores y colores diferentes; desplazar el 
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origen para crear una superficie llena de las mismas figuras. 

3. Modifique el programa de rotacion de poligonos para que el numero de 
lados del poligono varie a lo largo del programa. Vaya alternando, por 
ejemplo, entre un triangulo y un pentagono; o bien entre todos los 
poligonos, aumentando un lado en cada rotacion hasta que haya 20 lados y 
recomenzando de nuevo. 



DIBUJO INTERACTIVO EN LA PANTALLA 

Ademas de hacer que el ordenador construya figuras mas o menos geometricas, 
tambien se puede conseguir que ayude al usuario para que sea el mismo el que 
disene una figura sobre la pantalla; a esto vamos a dedicar el resto del capitulo. 
Para que los programas puedan ser utilizados por la totalidad de los usuarios, los 
hemos disenado para que funcionen empleando el teclado, pero es facil hacer las 
pequehas modificaciones que se requieren para utilizar los mandos de juego 
("joysticks"). Utilizaremos el modo de pantalla para proporcionar mayor 
variedad de colores. 

El primero de los programas proporciona la herramienta mas elemental para 
dibujar sobre la pantalla. Permite dibujar puntos que vayan formando lineas de 
la direccion deseada: 

10 MODE 

20 x=320:y=200 

30 color=l 

40 MOVE x,y 

50 PLOT x,y, color 

60 G0SUB 1000 

70 END 

997 REM examen del teclado - fin cuando se pulsa la tecla 'e' 

1000 WHILE respuesta$<>"e" 

1010 respuesta$=INKEY$ 

1019 REM comandos para dibujar la linea: arriba/abajo=a/z izqin'erda/derecha=,/. 

1020 IF respuesta$="a" THEN y=y+2 
1030 IF respuesta$="z" THEN y=y-2 
1040 IF respuesta$="," THEN x=x-4 
1050 IF respuesta$="." THEN x=x+4 
1060 PLOT x,y, color 

1070 WEND 
1080 RETURN 

El primer punto se dibuja en las coordenadas de la linea 20. Luego, el 
programa espera que se pulse una tecla para avanzar hasta otro punto. Las 
direcciones de avance se controlan con las teclas siguientes: 'a' para arriba, 'z' 
para abajo, para izquierda y para derecha. El programa actualiza las coordenadas 
en funcion de la tecla pulsada y dibuja el punto. 
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Es facil ariadir otros comandos a esta estructura basica. Aunque el movimiento 
esta por el momenta limitado a las cuatro direcciones cardinales, se pueden 
programar avances en diagonal anadiendo lineas a partir de la 1050. 

Tal como esta, el programa dibuja lineas continuas, y no es posible pasar de 
una posicion a otra separada de ella sin trazar una linea. Podemos ariadir como 
opcion que el color del punto pueda ser tanto el de dibujo como el del fondo: 

1051 IF respuesta$="d" THEN color=l 

1052 IF respuesta$="f" THEN color=0 

Pero si se ha seleccionado el color del fondo no se vera el dibujo de los puntos y 
no sabremos donde estamos dibujando. Esto puede arreglarse dibujando dos 
veces el punto; la primera en un color que se vea, y la segunda en su color 
definitivo: 

35 colorvisible=l 

1005 PLOT x,y, color 

1060 PLOT x,y,colorvisible 

Si el color que se selecciona es el del fondo, el punto quedara intermitente 
entre los dos colores, actuando como un cursor que nos indica por donde vamos. 

Tambien se puede dar la opcion de seleccionar el color del dibujo, bien 
directamente con varias teclas, bien empleando una sola tecla para recorrer un 
ciclo de colores de la misma forma que hicimos en programas anteriores: 

1053 IF respuesta$="c" THEN color=l+(color+l) MOD 3 
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De esta manera, tenemos una eleccion entre tres colores que se distinguen 
perfectamente del color del fondo. 

A veces, sera dificil dibujar con exactitud rectangulos y otras figuras parecidas 
empleando la vista como unico sistema de medir distancias. Podemos hacer que 
nos vaya apareciendo una informacion numerica en la pantalla. Esto nos da una 
disculpa para presentar el comando WINDOW {window es ventana), que podemos 
emplear para hacer que todo lo que sea texto aparezca en una zona determinada 
de la pantalla: 

15 WINDOW 1,40,24,25 

16 PRINT "Color: " 

17 PRINT "x: y: " 

Los cuatro numeros que siguen a WINDOW especifican primero la coordenada 
X de los bordes izquierdo y derecho de la ventana, y luego la coordenada Y de los 
bordes superior e inferior. En nuestro caso, la ventana para el texto ocupara las 
dos ultimas lineas de la pantalla: 

1051 IF respuesta$="d" THEN color=colorvisible 

1052 IF respuesta$="f" THEN colorvisible=color:color=0 

1053 IF respuesta$="c" THEN color=l+(color+l) MOD 3 
1060 PLOT x,y,colorvisible 

1065 GOSUB 2000 

1070 WEND 

1080 RETURN 

2000 IF colorviejoocolor THEN LOCATE 9,1: PRINT color 

2010 IF xviejo<>x THEN LOCATE 4,2:PRINT x; 

2020 IF yviejooy THEN LOCATE 12,2:PRINT y; 

2030 colorviejo=color 

2040 xviejo=x:yviejo=y 

2050 RETURN 
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Ahora podremos realizar nuestros calculos con mayor exactitud, pues el 
programa nos da una information que mantiene siempre actualizada sobre el 
color y las coordenadas del punto. Observe que el Amstrad considera tambien la 
ventana de texto como parte de la pantalla grafica; lo podra comprobar llevando 
su dibujo hacia esa zona. 




Hay aun muchos defectos en el programa. Las lineas solo se pueden borrar 
dibujando sobre ellas con el color del fondo. Por otra parte, si se cruza sobre una 
linea al ir dibujando con el color del fondo, se borrara el punto de intersection. A 
pesar de que esto pueda parecer un problema sin solution, tiene una muy 
sencilla, aunque para ponerla en practica vamos a tener que utilizar nuestros 
conocimientos sobre los numeros binarios. 

Ejercicios 

1. El programa anterior no se preocupa de si los puntos se salen de la 
pantalla. Haga una modification para que el programa impida salirse de la 
pantalla o dibujar sobre la ventana de texto. 

2. Aumente la posibilidad de elegir colores hasta 16. Utilice el comando INK 
para elegir los 16 que mas convengan de entre los 27 posibles, en lugar de 
utilizar los que vienen dados por defecto. 

3. Anada los comandos necesarios para que se pueda dibujar en diagonal. 



La opcion XOR 

Ahora podremos comprobar el interes de los comentarios que hicimos en el 
primer capitulo acerca de los sistemas binario y hexadecimal, ya que son 
conceptos importantes cuando se trata de las operaciones graficas. 

Conviene recordar que la pantalla es la representation externa de una parte de 
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la memoria del ordenador. Los caracteres que aparecen o las lineas que estan 
dibujadas son el resultado de la forma en que se almacenan valores binarios en 
dicha zona de memoria, que es la que el Amstrad examina para construir la 
configuracion de la pantalla. 

El dibujo de una linea hace que los bytes (los grupos de 8 bits) cambien en la 
parte de memoria que corresponda. El valor de una posicion de memoria es lo 
que determina si un punto de la pantalla esta encendido o apagado y, si esta 
encendido, de que color lo esta. De hecho, el color de cada punto se almacena en 
un determinado byte, en una forma que no es obvia pero que tampoco nos 
interesa por el momento. Para dar una explicacion sencilla, vamos a imaginarnos 
que hay una correspondencia uno a uno entre puntos y bytes, de manera que la 
configuracion de los bits de un byte es lo que indica al Amstrad como debe 
dibujar el correspondiente punto en la pantalla. Esto no es exactamente asi, pero 
el modelo servira perfectamente para lo que necesitamos comprender. 

Supondremos que se puede elegir entre cuatro colores y que el byte que 
representa un punto de pantalla puede tener uno de los cuatro valores de la 
figura 4.3. 

Cuando la pantalla esta completamente azul, todos los bytes valen 00000000; 
si esta completamente blanca, todos valen 00000001 y asi sucesivamente. Al 
dibujar una linea blanca, los bytes correspondientes a los puntos de la linea 
toman el valor 00000001; lo mismo, pero con el valor 00000010, cuando se 
dibuja una linea amarilla. 



CODIGO BINARIO 


COLOR 


00000000 


Azul 


00000001 


Blanco 


00000010 


Amarillo 


00000011 


Rojo 



Figura 4.3. Representation binaria de los colores en el supuesto ficticio. 



Dijimos hace tiempo que habia codigos ASCII que representaban comandos del 
Amstrad como, por ejemplo, movimientos del cursor o borra do de la pantalla. 
Uno de estos codigos establece la modalidad en qui el Amstrad dibuja los puntos. 

Se puede hacer que el Amstrad dibuje en la modalidad de 'or exclusivo' (que se 
abrevia por EXOR' o, mas frecuentemente, por 'XOR'). 

Cuando no se emplea esta opcion, el Amstrad se limita a cambiar el anterior 
valor del byte por el nuevo. Por ejemplo, al dibujar una linea amarilla, los bytes 
correspondientes tomaran el valor 00000010. 

Con la opcion XOR el Amstrad combina el viejo valor del byte con el nuevo, 
segun ciertas reglas. Vamos a examinar lo que ocurriria con un byte individual 
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correspondiente a un punto de la pantalla, para ver que el efecto es el que nos 
interesa. Supongamos para empezar que el byte tiene el valor 00000000, o sea, 
representa un punto del color azul del fondo, como en la figura 4.4: 



00000000 Un punto del color del fondo 

(azul) 



Figura 4.4. 

Supongamos que se dibuja una linea amarilla (valor 00000010) sobre dicho 
punto. La situacion es la que indica la figura 4.5: 



00000000 
00000010 



Un punto azul 

Y una linea amarilla sobre el punto 



Figura 4.5. 



Como el Amstrad esta empleando la opcion XOR, lo que hace no e reemplazar 
00000000 (azul) por 00000010 (amarillo), sino mezclar los do bytes. Donde los 
bits de ambos bytes son diferentes, pone un 1 y, donde son iguales, pone un 0. El 
resultado es que el valor que queda corresponde a un punto amarillo, como se 
puede ver en la figura 4.6. O sea, ocurre lo mismo de siempre. Desde luego esto 
no es lo que el lector podria esperar despues de la publicidad que hemos hecho 
de la opcion XOR. 



00000000 



Un punto azul 



XOR 00000010 
00000010 



cruzado por una linea amarilla 
da un punto amarillo 



Figura 4.6. 

Veamos ahora que ocurre con esta opcion si se dibuja una linea amarilla 
cruzando otra linea ya dibujada. El efecto, que se muestra en la figura 4.7, es 
mas bien inesperado. Como coinciden los bytes antiguo y nuevo, la opcion XOR 
produce el valor 00000000, correspondiente al color azul del fondo; la linea 
desaparece de la misma forma que si se hubiese dibujado en azul con la opcion 
normal. 
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00000010 



Un punto amarillo 



XOR 00000010 
00000000 



cruzado por una linea amarilla 

da un punto de color del fondo 
(azul) 



Figura 4.7. 

Si a continuacion se dibuja encima otra linea amarilla, la linea amarilla 
original reaparece, puesto que se produce de nuevo la situacion de la figura 4.6. 

iQue ocurre cuando se dibuja (con la opcion XOR) una linea amarilla sobre 
una linea blanca? 



00000001 



Un punto bianco 



XOR 00000010 



cruzado por una linea amarilla 



Figura 4.8. 
Resulta una linea roja, como explica la figura 4.9: 



00000001 
XOR 00000010 



Un punto bianco 
cruzado por una linea amarilla 



00000011 



da un punto rojo 



Figura 4.9. 



00000011 


Un punto rojo 


XOR 00000011 


cruzado por una linea rojo 


00000000 


da un punto de color del fondo 
(azul) 



Figura 4.10. 

Es posible que la opcion XOR no le parezca muy util, pero los efectos graficos 
que consigue son de un valor inestimable. Permite dibujar lineas o borrarlas sin 
afectar a las demas; asi se puede ensayar con un dibujo y corregirlo, antes de 
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hacerlo definitivo. Todo lo que hace falta recordar es que, con la opcion XOR, lo 
que se dibuja dos veces desaparece. 

Dibujo con la opcion XOR 

Antes de comenzar el diserio de un nuevo programa de dibujo que aproveche 
las posibilidades de la opcion XOR, vamos a ver que facetas podriamos tratar de 
incluir: 

1 . que las lineas sean provisionales o permanentes; 

2. que se puedan borrar lineas; 

3. que el dibujo se pueda grabar en cinta; 

4. dibujo automatico de figuras predefinidas, como circunferencias o 
rectangulos; 

5. traslacion, ampliacion a escala y otros tipos de movimientos de las figuras. 

De las dos ultimas funciones ya trataremos en un capitulo posterior. Para 
incluir 1) no hay problema despues de lo que acabamos de ver. Para realizar 2) y 
3), lo mejor seria tener almacenadas en una matriz las coordenadas de los 
extremos de las rectas. Teniendo estos datos almacenados es sencillo identificar 
una linea y borrarla. Tambien seria facil almacenar el dibujo en un fichero; 
bastaria con guardar esta matriz de coordenadas, que se podria utilizar para 
reproducir el dibujo en cualquier momento. 

Vamos a realizar un programa de diserio modular, para poder ampliarlo 
facilmente: 

10 MODE 

20 DIM x(100),y(100) 

30 xant=320:yant=200 

40 x=320:y=200 

50 colorvisible=l 

60 PRINT CHR$(23);CHR$(1); 

70 G0SUB 1000 

80 G0SUB 2000 

90 END 

999 REM dibujo de la recta 

1000 PLOT x,y,colorvisible 
1010 DRAW xant,yant 

1020 RETURN 

2000 WHILE respuesta$<>"e" 

2010 G0SUB 1000 

2020 respuesta$=L0WER$(INKEY$) 

2030 IF respuesta$="a" THEN y=y+2 

2040 IF respuesta$="z" THEN y=y-2 

2050 IF respuesta$="," THEN x=x-4 

2060 IF respuesta$="." THEN x=x+4 
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2070 IF respuesta$=" " THEN GOSUB 3000 
2080 GOSUB 1000 
2090 WEND 
2100 RETURN 

2999 REM opcion grafica normal para dibujar de m anera permanente 

3000 PRINT CHR$(23);CHR$(0); 
3010 GOSUB 1000 

3019 REM vuelta a la opcion X0R 

3020 PRINT CHR$(23);CHR$(1); 
3030 con=con+l 

3040 x(con)=x:y(con)=y 
3050 xant=x:yant=y 
3060 RETURN 




La linea 20 reserva matrices para las coordenadas de 100 puntos (esta can- 
tidad puede perfectamente aumentarse). Las variables xey son las coordenadas 
del punto con el que se esta trabajando en ese momento. Las variables xant e 
yant son las coordenadas del ultimo punto que se ha fijado definitivamente. Estas 
son las coordenadas que deben estar disponibles para poder dibujar si se desea 
una recta permanente entre ambos puntos. 

La subrutina 2000 es el modulo central del programa. Se encarga de consultar 
el teclado y dibuja y borra sucesivamente una recta entre (x,y) y (xant,yant). 

La subrutina 1000 se encarga de dibujar la recta entre ambos puntos cuando 
uno de ellos va desplazandose; es una tecnica que podria llamarse de la 'cinta 
elastica' por el efecto visual que produce. 

Al pulsar la barra espaciadora, la linea se dibuja permanentemente mediante 
la subrutina 3000. Esta subrutina pone el modo grafico en 1 modalidad normal, 
dibuja la linea y vuelve a la modalidad XOR. Las coordenadas del punto se 
almacenan en las matrices y sus valores asignan a las variables xant e yant para 
servir de arranque a la recta siguiente. 

Podemos modificar el programa para dar la opcion de dibujar o no linea 
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provisional: 

55 lineadib=0 

999 REM dibujo de la recta (o no si lineadib=0) 

1000 PLOT x,y,colorvisible 
1005 IF lineadib=0 THEN RETURN 
1010 DRAW xant,yant 

1020 RETURN 

2070 IF respuesta$=" " THEN G0SUB 3000:1 ineadib= 1 

2071 IF respuesta$="l" THEN IF lineadib=0 THEN lineadib=l ELSE lineadib=0 

La linea 2071 permite utilizar la tecla T para conmutar entre ambas opciones. 
Cuando lineadib=0 no se dibuja la linea, terminando anticipadamente la 
subrutina 1000. Al ejecutar ahora el programa, podra ver que la nueva opcion le 
sirve tambien para fijar un punto sin que quede defintivamente unido por 
ninguna linea al anterior. 




Es muy facil hacer que se pueda borrar una linea. Vamos a limitarnos a 
permitir que se borre la ultima linea trazada, pulsando la tecla 'b': 

2072 IF respuesta$="b" THEN G0SUB 4000 

3998 REM no marcha si se trata de borrar una linea que no existe 

3999 REM ya veremos como se arregla en el proximo programa 

4000 x=x(con) :y=y(con) 
4010 con=con-l 

4020 xant=x(con) :yant=y(con) 
4030 G0SUB 1000 
4040 RETURN 

Si le parece que la respuesta a las ordenes del teclado es algo lenta, ariada las 
lineas siguientes: 
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1 DEFINT c,f,l,o,s,x,y 

2 SPEED KEY 2,2 
89 SPEED KEY 10,5 

Ya hemos dicho antes que la utilizacion de enteros mejora la velocidad de los 
programas. La instruccion SPEED KEY va seguida de dos numeros que indican el 
tiempo que debe pasar para que comience a repetirse una tecla y el periodo de la 
repeticion, todo ello en unidades de 1/50 segundos. Con esos dos valores se 
puede regular la velocidad con la que el ordendor responde a la pulsacion de las 
teclas. Cuando se pulsa una tecla, el ordenador espera el tiempo especificado por 
el primer numero antes de repetir el caracter. Si la tecla sigue pulsada, va 
repitiendo el caracter a intervalos cuya duracion es la especificada por el segundo 
de los numeros. Antes de salir del programa hay que volver estos datos a sus 
valores normales pues, en caso contrario, seria practicamente imposible teclear 
correctamente los comandos posteriores. 

Cuando se ha creado un dibujo que constituye una obra maestra, conviene 
guardarlo. Para ello hay que cambiar un poco el programa. No basta con recordar 
todos los puntos fijados, sino que hay que saber tambien que puntos se han 
unido con rectas y cuales no: 

20 DIM x(100),y(100), 1(100) 

3030 con=con+l 

3040 x(con)=x:y(con)=y 

3045 1 (con)=lineadib 

3050 xant=x:yant=y 

3060 RETURN 

4000 x=x(con) :y=y(con) : 1 i neadi b=l (con) 

Las matrices x( ) e y( ) son para las coordenadas de los puntos. La matriz 1( ) 
sirve para saber si un punto se ha unido al anterior; para ello basta con que 
guarde el valor de la variable lineadib cuando se fija el punto. Si el valor 
guardado es O, significa que la linea no se trazo y que el punto no quedo unido al 
anterior. Cualquier otro valor indica que el punto quedo unido al anterior. 

2074 IF respuesta$="i" THEN G0SUB 7000 

2075 IF respuesta$="o" THEN G0SUB 8000 
6000 CLG 

6010 xant=l<(l):yant=y(l) 
6020 FOR valor=2 TO con 
6030 x=x(valor) :y=y(valor) 
6040 1 i neadi b=l (valor) 
6050 G0SUB 1000 
6060 xant=x:yant=y 
6070 NEXT 
6080 x=320:y=200:lineadib=0 
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6090 RETURN 

7000 MODE 1 

7010 PRINFCarga de datos de un fichero" 

7020 INPUT"Nombre del fichero: ";fichero$ 

7030 OPENIN fichero$ 

7040 con=0 

7050 WHILE NOT EOF 

7060 con=con+l 

7070 INPUT #9,con),y(con),l(con) 

7080 WEND 

7090 CL0SEIN 

7100 MODE 

7110 WINDOW 1,20,25,25 

7120 xant=x(con) :yant=y(con) 

7130 x=xant:y=yant 

7140 G0SUB 6000 

7150 RETURN 

8000 MODE 1 

8010 PRINT"Grabacion de datos en un fichero" 

8020 INPUT"Nombre del fichero: ";fichero$ 

8030 0PEN0UT fichero$ 

8040 cuenta=0 

8050 WHILE cuenta<=con 

8060 WRITE #9,x(cuenta),y(cuenta),l(cuenta) 

8070 cuenta=cuenta+l 

8080 WEND 

8090 CL0SE0UT 

8100 MODE 

8110 WINDOW 1,20,25,25 

8120 G0SUB 6000 

8130 RETURN 



a de datos de un fichero 
Nonbre del fichero: ? I 
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De la misma forma que se puede grabar los datos, tambien se los puede cargar; 
esto es lo que hace la subrutina 7000. No era estrictamente necesario cambiar al 
modo 1 para ejecutar estas rutinas, pero en modo 1 se leen mejor los mensajes. 

La rutina de grabacion se invoca pulsando la tecla 'o', y la de carga con T; 
hemos puesto estas para recordar input/ output (o sea, entrada/salida), pero 
usted puede programarlo de otra forma. 

Ya tenemos practicamente completo nuestro programa de dibujo. Nos queda 
unicamente anadir la opcion del color: 

2070 IF respuesta$=" " THEN G0SUB 3000:lineadib=colorvisible 

2071 IF respuesta$="l" THEN IF lineadib=0 THEN lineadib=colorvisible ELSE 
lineadib=0 

2076 IF respuesta$="c" THEN colorvisible=l+(colorvisible+l) MOD 3 
3045 IF lineadib>0 THEN 1 (con)=colorvisible 
4025 IF lineadib>0 THEN colorvisible=lineadib 

El color crea problemas, puesto que para borrar una linea hay que dibujarla 
con la opcion XOR y el mismo color. Antes hemos visto como una linea blanca, 
dibujada sobre una amarilla, no borraba esta, sino que la cambiaba de color. 
Afortunadamente, no hay necesidad de crear una nueva matriz para almacenar 
los colores, pues la propia matriz I( ) sirve para ello, tanto si se desea borrar 
lineas como para las operaciones de grabacion y carga. 

Vamos a terminar el capitulo con una demostracion de la flexibilidad de un 
programa disehado como este. Hemos ahadido una opcion que permite realizar a 
otra escala el dibujo que hayamos creado: 

2073 IF respuesta$="s" THEN G0SUB 5000 
5000 WINDOW 1,20,25,25 
5010 INPUFEscala: ";escala 

5018 REM multiplica los valores por el factor de escala 

5019 REM tomando como centro el punto donde esta el cursor 

5020 FOR valor=l TO con 

5030 x (val or) =escal a* (x (val or) -x) +320 

5040 y (val or) =escal a* (y (val or) -y) +200 

5050 NEXT 

5060 G0SUB 6000 

5070 RETURN 



Esta opcion se invoca mediante la tecla 's', que provoca el salto a la subrutina 
5000; la rutina se encarga de pedirnos la escala con la que queremos aumentar o 
disminuir el dibujo. Por ejemplo, una escala de 2 dibujara la figura a tamaho 
doble, mientras que 0.1 la reducira a la decima parte. 

La rutina aprovecha el hecho de que el Amstrad no se preocupa de saber si las 
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coordenadas de los comandos graficos caen fuera de la pantalla. La rutina hace 
que se dibuje toda la figura, aunque solo una parte quede dentro de la pantalla. 
Esta parte correspondent a los puntos que en la version a escala tengan 
coordenada X en el margen 0. . .639 y coordenada Y en el margen . . .399. 

Cuando se ha elegido el factor de escala, el ordenador multiplica por dicho 
factor las coordenadas que figuran en las matrices x( e y( ). El centro del 
alargamiento es el punto en el que se encontraba el cursor de dibujo en ese 
momento. El nuevo dibujo aparece centrado alrededor del punto (320, 200) de la 
pantalla, que se toma ademas como nueva posicion del cursor. 

La utilizacion de enteros puede resultar ventajosa para hacer mas rapido un 
programa, pero aqui tiene la desventaja de limitar a los numeros enteros el factor 
de escala que se puede emplear. 



Ejercicios 

1. Ahada unas pocas lineas al final del programa para devolver el modo de 
pantalla, la velocidad de respuesta de las teclas, etc., a sus valores 
habituales. 

2. Introduzca instrucciones que impidan que el dibujo se saiga fuera de la 
pantalla. 

3. La rutina de borrado de lineas tiene el problema de que puede seguir 
intentando borrar incluso despues de haber borrado todas las lineas, lo que 
provocara el "fracaso" del programa. Introduzca instrucciones que impidan 
que esto suceda. 

4. Ahada una rutina que permita al usuario elegir de forma comoda los 
parametros que desea para SPEED KEY. 

5. Ahada una rutina que vaya escribiendo en la pantalla las coordenadas del 
cursor en cada momento. 

6. (Mas dificil.) Introduzca un borrado selectivo de lineas, para que se puedan 
borrar otras diferentes de la ultima dibujada. (Puede disehar un ciclo que 
vaya recorriendo todas las lineas, y preparar una tecla para seleccionar la 
que se desea borrar. Recuerde que ademas debera reflejar este hecho en la 
matriz I( 1, pues, en caso contrario, la recta reaparecera cuando vuelva a 
cargar el dibujo desde la cinta.) 
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5. Animacion ... 

DIBUJOS LINEALES EN MOVIMIENTO 

En el capitulo anterior nemos explicado como funciona la opcion XOR y su 
utilidad en el dibujo y borrado de lineas. Vamos a estudiar ahora como podemos 
utilizarla para producir una animacion de las figuras. 

Un metodo para crear dibujos animados es dibujar y borrar una figura a la vez 
que se desplaza por la pantalla. Es un metodo muy primitivo, pero, para figuras 
simples, la velocidad del ordenador permite obtener resultados aceptables. El 
programa siguiente mueve un rectangulo a lo largo de la pantalla dibujandolo y 
borrandolo en cada posicion: 

10 MODE 1 

20 x=100:y=100 

30 xdi stanci a=50 :ydi stanci a=100 

39 REM se incrementa x en xinc cada vez que se dibuja el rectangulo 

40 xinc=4 

50 WHILE x<639 

59 REM dibujo del rectangulo 

60 color=l:G0SUB 1000 

69 REM borrado del rectangulo 

70 color=0:G0SUB 1000 
80 x=x+xinc 

90 WEND 
100 END 

999 REM instrucciones para dibujar el rectangulo 

1000 MOVE x,y 

1010 DRAWR xdistancia,0, color 
1020 DRAWR 0,ydi stanci a 
1030 DRAWR -xdi stanci a, 
1040 DRAWR 0,-ydi stanci a 
1050 RETURN 
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Con pequerias modificaciones, el rectangulo se puede mover en diagonal 

40 xinc=4:yinc=2 

80 x=x+xinc:y=y+yinc 

Con dos lineas mas se puede hacer que rebote al llegar a los bordes de la 
pantalla: 

45 continue=l 

50 WHILE continued 

59 REM dibujo del rectangulo 

60 color=l:GOSUB 1000 

69 REM borrado del rectangulo 

70 color=0:G0SUB 1000 

79 REM actual izar coordenadas y ver si caen fuer a de la pantalla 

80 x=x+xinc:y=y+yinc 

81 IF x<0 OR x>639 THEN xinc=-xinc:x=x+2*xinc 
88 IF y<0 OR y>399 THEN yinc=-yinc:y=y+2*yinc 
90 WEND 

El resultado empeora cuando interviene una figura formada por mucha lineas. 
Supongamos que queremos animar el dibujo de un perro hecho a base de rectas. 
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Para que el movimiento tenga un poco de vida, vamos a dibujar la figura en dos 
posiciones diferentes. El ordenador debe dibujar el perro en una posicion, luego 
borrarlo, dibujarlo en la posicion alternativa y, finalmente, borrar este dibujo. A 
continuacion hay que actualizar las coordenadas y repetir el mismo ciclo. Para 
simplificar el trabajo de alternar entre los dos dibujos, lo mas facil es almacenar 
sus coordenadas en una matriz: 





Figura 5.1. Utilization de una misma figura en dos posiciones 
diferentes para mejorar la ilusion de movimiento. 

10 MODE 1 
20 GOSUB 1000 
30 GOSUB 2000 
40 END 

998 REM leer en dos conjuntos de 26 coordenadas 

999 REM para dibujar dos posiciones del perro 

1000 DIM x(100),y(100) 
1010 FOR con=l TO 52 
1020 READ x(con),y(con) 
1030 NEXT 

1040 RETURN 

1050 DATA 0,0,20,40,20,40,10,80,10,80,0,120,20,10,35,50,35,50,10,80,10,80,70,80 

1060 DATA 

60,0,80,40,80,40,70,80,80,10,95,50,95,50,70,80,70,80,90,140,90,140,110,120,110,1 

20,80,110 

1070 DATA 5,10,25,40,25,40,15,80,15,80,10,120,0,15,30,50,30,50,15,80,15,80,75,80 

1080 DATA 

75,80,85,40,85,40,65,10,75,80,90,50,90,50,60,15,75,80,100,130,100,130,120,110,12 

0,110,90,100 

1999 REM dibujar y borrar sucesivamente el perro 
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2000 xinc=0 

2010 indicador=0 

2020 WHILE x(l)+xinc<639 

2030 IF indicador=0 THEN comienzo=l:indicador=l ELSE comienzo=27:indicador=0 

2039 REM dibujo del perro 

2040 color=l:G0SUB 3000 

2049 REM borrado del perro 

2050 color=0:G0SUB 3000 

2059 REM mover a la nueva posicion 

2060 xinc=xinc+20 
2070 WEND 

2080 RETURN 

2999 REM el perro se dibuja empalmando puntos 

3000 FOR con=comienzo TO comienzo+25 STEP 2 
3010 MOVE x(con)+xinc,y(con) 

3020 DRAW x(con+l)+xinc,y(con+l), color 
3030 NEXT 
3040 RETURN 




El proceso se ve muy bien, ya que la ejecucion es sumamente lenta. lo que 
queda claro es que hace falta otro tipo de tecnicas. 

Podemos aprovechar una posibilidad que tiene el Amstrad de la que y nemos 
hablado. Se trata de la facilidad para cambiar la gama de color ( con la instruccion 
INK. Si dibujamos una figura con una tinta que tenga el mismo color que el fondo 
de la pantalla (luego invisible), podemos hacer que aparezca repentinamente 
dando a la tinta del dibujo cualquier color que contraste con el del fondo: 

30 xd=50:yd=100 

39 REM poner la tinta 1 con el color del fondo 

40 INK 1,1 
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49 REM dibujar un rectangulo usando la tinta 1 

50 color=l:GOSUB 1000 
60 x=300: y=300 

70 xd=100:yd=50 

79 REM poner la tinta 2 con el color del fondo 

30 INK 2,1 

89 REM dibujar un rectangulo usando la tinta 2 

90 color=2:G0SUB 1000 
100 continue=l 

109 REM repetir los dibujos hasta que se apriete 

110 WHILE respuesta$<>"e" 

119 REM hacer visible la tinta 1 y la tinta 2 de 1 color del fondo 

120 INK 1,21 
130 INK 2,1 

139 REM en espera de que se pulse una tecla 

140 respuesta$="" 

150 WHILE respuesta$="" 

160 respuesta$=L0WER$(INKEY$). 

170 WEND 

179 REM hacer visible la tinta 2 y la tinta 1 de 1 color del fondo 

160 INK 1,1 

190 INK 2,24 

199 REM en espera de que se pulse una tecla 

200 respuesta$="" 

210 WHILE respuesta$="" 

220 respuesta$=L0WER$(INKEY$) 

230 WEND 

240 WEND 

249 REM tintas del color habitual 

250 INK 1,24 
260 INK 2,20 
270 END 

1000 MOVE x,y 
1010 DRAWR xd,0, color 
1020 DRAWR 0,yd 
1030 DRAWR -xd,0 
1040 DRAWR 0,-yd 
1050 RETURN 



Las figuras estan ya dibujadas, lo que hace que su aparicion sea instantanea. 
Esta idea puede servir para producir un dibujo animado a base de realizar 
dibujos del color del fondo y darles despues un color visible. ^Podemos animar el 
perro de antes con este metodo? La respuesta es negativa, debido a los problemas 
que se producen cuando se solapan dos figuras. Para entender estos problemas, 
lo mejor sera afiadir al programa anterior las lineas: 
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59 REM esta vez los dos rectangulos se solapan 

60 x=120:y=100 

y ejecutarlo. Parte de un rectangulo desaparece alii donde las figuras se 
superponen. Al dar a uno de los rectangulos el color del fondo, desaparece 
tambien la parte del otro rectangulo que coincide con el. 

Siempre que las lineas no se solapen, los cambios de tinta pueden pro- 
porcionar movimientos suaves y rapidos. Este metodo es mas util en modo O, en 
el que se dispone de 16 tintas. Se pueden dibujar entonces hasta 15 figuras con 
el color del fondo, para, sucesivamente, hacerlas aparecer y desaparecer 
cambiando la tinta correspondiente a la figura. Por ejemplo, el siguiente 
programa dibuja un rectangulo que se estira y se encoge: 

10 MODE 

19 REM posicion de comienzo de la esquina del rectangulo 

20 xcom=260:ycom=180 

29 REM loggitud de los lados 

30 longitudx=20:longitudy=20 

39 REM diferencia del tamano de los sucesivos rectangulos 

40 incx=8:incy=6 

50 tintacom=l:tintafin=15 
60 GOSUB 1000 
70 GOSUB 2000 
80 END 

998 REM dibujar 15 rectangulos del color del fondo 

999 REM uno dentro de otro 

1000 FOR con=tintacom TO tintafin 
1010 INK con.l 

1020 movex=con*incx 

1030 movey=con*incy 

1040 ladox=longitudx+2*movex 

1050 ladoy=longitudy+2*movey 

1060 MOVE xcom-movex,ycom-movey 

1070 DRAWR ladox,0,con 

1080 DRAWR 0,ladoy 

1090 DRAWR -ladox,0 

1100 DRAWR 0,-1 adoy 

1110 NEXT 

1120 RETURN 

1999 REM ciclo de cambio del color de las tintas para que aparezca un reetangulo 

cada vez 2000 continue=l 

2010 tintacom=l:tintasig=2 

2019 REM continuar indefinidamente 

2020 WHILE continued 

2029 REM se espera la pulsacion de una tecla 2030 respuesta$="" 
2040 WHILE respuesta$="" 
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2050 respuesta$=INKEY$ 

2060 WEND 

2069 REM cambiar el rectangulo anterior al color del fondo 

2070 INK tintacom.l 

2079 REM cambiar el siguiente rectangulo a color visible 

2080 INK tintasig,24 

2088 REM incrementar el numero de tinta para rep etir el ciclo de 
instrucciones 

2089 REM la actual pasa al color del fondo y la siguiente a color visible 

2090 tintacom=(tintacom+l) MOD 16 
2100 IF tintacom=0 THEN tintacom=l 
2110 tintasig=(tintasig+l) MOD 16 
2120 IF tintasig=0 THEN tintasig=l 
2130 WEND 

2140 RETURN 

El metodo es especialmente eficaz cuando el dibujo animado es ciclico, como 
en este caso. El mayor problema es que no funciona correctamente si se solapan 
las distintas figuras. 

Ya vimos como, con la modalidad grafica XOR, es posible dibujar una linea sin 
afectar a las ya dibujadas. Anadiendo las lineas 

15 PRINT CHR$(23)CHR$(1); 
265 PRINT CHR$(23)CHR$(0); 

al programa de los rectangulos parcialmente superpuestos, podremos 
comprobar si la opcion XOR sirve en este caso. La modificacion funciona en 
parte, puesto que los dos rectangulos se ven ahora completamente; pero la parte 
en litigio aparece con un inoportuno color rojo. Podemos entender este resultado 
si reflexionamos sobre la representacion de los colores en el modo 1 . 

En el modo 1 existen solo cuatro tintas diferentes. La razon es que cada tinta 
emplea un codigo binario de dos bits y que hay exactamente cuatro 
combinaciones posibles de dos bits. Los codigos de las tintas nunca cambian, 
aunque se pueden cambiar los colores de las tintas y, por lo tanto, el resultado 
efectivo. Por ejemplo, se puede dibujar un punto rojo con la tinta 1 usando el 
comando INK 1,6. 



00000000 


Tinta (azul) 


La tinta de cada 
punto se caracteriza 
mediante un codigo 
de 2 bits 


00000001 


Tinta 1 (amarillo) 


00000010 


Tinta 2 (cyan intenso) 


00000011 


Tinta 3 (rojo) 
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Figura 5.2. Codigos de 2 bits para las tintas y colores del modo 1. 

En nuestro ejemplo concreto se dibujan dos rectangulos; uno con la tinta 1 
(codigo 01) y el otro con la tinta 2 (codigo 10). Recuerde el efecto de XOR: si los 
bits que se combinan son iguales, el resultado es 0; si son distintos, es 1. Lo que 
ocurre en los puntos donde los rectangulos se superponen se muestra en la 
figura 5.3: 



01 


Un punto de una linea amarilla 


XOR 10 


superpuesto con uno de una linea cyan 


11 


da un punto rojo 



Figura 5.3. 

Un punto de una linea amarilla superpuesto con uno de una linea cyan da un 
punto rojo. El resultado es el codigo 11 de la tinta 3, o sea, la tinta roja. Por lo 
tanto, si hacemos que la tinta 3 sea amarilla en lugar de roja, habremos 
conseguido que se vea la parte superpuesta: 

11 REM tinta 3 de color amarillo 

12 INK 3,24 

261 REM tinta 3 a su color normal 

262 INK 3,6 

El solapamiento no resulta ya un inconveniente. Esto forma la base de un 
metodo que produce una animacion bastante suave: 

1. la primera figura se dibuja en una tinta que contraste con el fondo; 

2. la segunda figura se dibuja en una tinta que tenga el mismo color que la 
del fondo; 

3. se conmutan las tintas de las dos figuras, de forma que la segunda apa- 
rezca y la primera desaparezca; 

4. se borra la primera figura de la posicion que ocupa; 

5. se dibuja una nueva figura con la tinta de la primera; 

6. se conmutan las tintas, de forma que desaparezca la segunda figura y 
aparezca la nueva; 

... y asi repetidamente hasta completar la animacion. El unico problema 
estriba en el solapamiento de (as figuras, ya que entonces hace falta dibujar y 
borrar una figura sin afectar a la otra. Vamos a examinar este problema de mas 
cerca. 
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Supongamos que estamos en el modo 1 y que utilizamos PEN 1 y PEN 2 para 
las dos figuras. No necesitamos preocuparnos ahora del color de cada tinta, que 
podremos elegir como queramos con el comando INK. Vamos a concentrarnos en 
los codigos de 2 bits de las tintas y en el efecto que queremos conseguir. 

Para borrar la figura dibujada con PEN 1, lo que se necesita es convertir el 
codigo 01 de su tinta en el 00, que es el de la tinta del fondo. Podemos 
conseguirlo haciendo que sus puntos se combinen en modalidad XOR con puntos 
01. Sin embargo, los que se solapen con los de la segunda figura seran puntos 1 1 
y, al combinarse mediante XOR con 01, se convertiran en puntos de codigo 10. 
Esto es justamente lo que necesitamos. 



1 Un punto de una linea amarilla 
XOR 1 al que se superpone otra linea amarilla 
00 da un punto del color del fondo (azul) 

Figura 5.4. 

Un punto de una linea amarilla al que se superpone otra linea amarilla da un 
punto del color azul del fondo 



11 
XOR 01 



00 



Un punto de las dos figuras 

al que se superpone otra linea amarilla 



da un punto de color cyan 



Figura 5.5. 

Un punto de las dos figuras al que se superpone otra linea amarilla da un 
punto de color cyan. 

Pero a pesar de que todo parece resuelto, conviene reflexionar aun sobre otra 
cosa. Si un punto esta en la intersection de dos lineas de la misma figura y se 
borra la figura con XOR, el primer borrado hara desaparecer el punto, pero el 
segundo hara que aparezca de nuevo. 

Podemos obtener el resultado correcto con una tecnica algo diferente, lo que 
nos lleva a ver otra de las modalidades graficas del Amstrad. 

El Amstrad admite tambien la modalidad grafica AND. La forma de poner en 
marcha esta option es el comando PRINT CHR$(23)CHR$(2). 
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01001101 



AND 11100100 
01000100 

Figura 5.6. Un ejemplo del efecto de AND. 

El efecto del AND es poner un bit a 1 cuando valgan 1 los correspondientes bits 
de los dos codigos, y ponerlo a en cualquier otro caso, como se ve en el ejemplo 
de la figura 5.6. 

Para borrar en la modalidad AND puntos escritos con la tinta 1, lo que se 
puede hacer es superponerles el codigo 10, como en la figura 5.7. 1 resultado es 
correcto incluso para los puntos que se encuentran simultaneamente en ambas 
figuras, como muestra la figura 5.8. De la misma manera, los puntos de tinta 2 
se borran superponiendoles el codigo 01 el la modalidad AND, como mostramos 
en la figura 5.9. 

1 Un punto de una linea amarilla 
AND 10 al que se superpone una linea cyan 



00 da un punto del color del fondo (azul) 

Figura 5.7. 

1 1 Un punto de las dos figuras 
AND 1 al que se superpone una linea cyan 
1 da un punto de color cyan 

Figura 5.8. 



10 
AND 01 



Un punto de una linea cyan 

al que se superpone una linea amarilla 



00 



da un punto del color del fondo (azul) 



Figura 5.9. 



Vamos a ver lo que ocurre ahora con el problema de dibujar sin alterar lo que 
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ya esta dibujado. Supongamos que estamos dibujando con la tinta 1. Los 
resultados que conviene obtener con los distintos puntos para realizar nuestro 
objetivo de no destruir lo que ya esta dibujado viene descrito en la figura 5.10. 



Codigo de la tinta con la que esta 


Codigo que conviene que resulte tras 


dibujando el punto 


dibujar encima una linea de tinta 1 . 


00000000 


00000001 


00000001 


00000001 


00000010 


00000011 


00000011 


00000011 



Figura 5.10. 

Esta claro que ni la modalidad normal, ni la XOR ni la AND sirven para este 
objetivo. Pero existe otra opcion de la que aun no hemos hablado: la modalidad 
OR. Esta modalidad se activa con el comando PRINT CHR$(23) CHR$(3). Da como 
resultado un 1 cuando es 1 alguno de los dos bits que se componen, y cuando 
ambos son 0. 



01001101 
OR 11100100 



11101101 



Figura 5.11. Un ejemplo del efecto de OR. 



Es facil comprobar que, al dibujar con la tinta 1 en la modalidad OR, se 
obtienen justamente los resultados apetecidos. Resultados similares se obtienen 
cuando se dibuja con la tinta 2 en la modalidad OR, como se puede ver en la 
figura 5.12: 



00 


01 


10 


11 


OR 10 


OR 10 


OR 10 


OR 10 


10 


11 


10 


11 



Figura 5.12. 
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Podemos poner en practica todos estos conocimientos para desplazar un 
triangulo por la pantalla: 

10 MODE 1 

20 INK 3,24 

30 DEFINT c.t.x.y 

40 x=100:y=100 

50 xl=100:yl=200 

60 color=l:colorl=24 

70 tipo=3:tono=l 

80 G0SUB 1000 

90 G0SUB 2000 

100 tipo=3:tono=2 

110 WHILE x<639 

120 x=x+4:xl=xl+4 

130 G0SUB 2000 

140 G0SUB 1000 

150 x=x-4:xl=xl-4 

160 G0SUB 2000:x=x+4:xl=xl+4 

170 IF tono=2 THEN tono=l ELSE tono=2 

180 WEND 

189 REM tintas de los col ores usual es 

190 INK 1,24 
200 INK 2,20 
210 INK 3,6 
220 END 

998 REM conmutacion de las tintas: la del color del fondo pasa a visible 

999 REM y la de color visible pasa al del fondo 

1000 IF color=l THEN color=24:colorl=l ELSE color=l:colorl=24 
1010 INK 1, color 

1020 INK 2,colorl 

1030 RETURN 

1993 REM la rutina borra y dibuja cuando el triangulo no es visible 

1999 REM (o sea, cuando esta del color del fondo) 

2000 PRINT CHR$(23);CHR$(tipo); 
2010 MOVE x,y 

2020 DRAW xl.yl.tono 

2030 DRAW xl+50,yl 

2040 DRAW x+50,yl 

2050 DRAW x,y 

2060 IF tipo=2 THEN tipo=3 ELSE tipo=2 

2070 RETURN 
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La linea 150 hace retroceder al triangulo precedente, para borrarlo cuando el 
color de su tinta es invisible. La linea 1000 cambia las tintas para que las figuras 
aparezcan y desaparezcan. La 2060 intercambia las opciones OR y AND. Tambien 
se puede utilizar la misma tecnica para hacer que se mueva nuestro antiguo 
perro: 

10 MODE 1 

14 REM para mayor velocidad se utilizan numeros enteros 

15 DEFINT c,s,t,x,y 
20 G0SUB 1000 

30 G0SUB 2000 

40 PRINT CHR$(23)CHR$(0); 

50 END 

998 REM lectura en dos conjuntos de 26 coordenadas 

999 REM para dibujar dos posiciones diferentes d el perro 

1000 DIM x(100),y(100) 
1010 FOR con=l TO 52 
1020 READ x(con),y(con) 
1030 NEXT 

1040 RETURN 

1050 DATA 0,0,20,40,20,40,10,80,10,80,0,120,20,10,35,50,35,50,10,80,10,80,70,80 

1060 DATA 

60,0,80,40,80,40,70,80,80,10,95,50,95,50,70,80,70,80,90,140,90,140,110,120,110,1 

20,80, 110 

1070 DATA 5,10,25,40,25,40,15,80,15,80,10,120,0,15,30,50,30,50,15,80,15,80,75,80 

1080 DATA 

75,80,85,40,85,40,65,10,75,80,90,50,90,50,60,15,75,80,100,130,100,130,120,110,12 

0,110, 90,100 

1999 REM la tinta 3 con el color que interesa para X0R 

2000 INK 3,24 

2010 color=l:colorl=24 
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2020 tipo=3:tono=l 

2029 REM dibujo de la figura en la posicion inicial 

2030 GOSUB 4000 
2040 GOSUB 5000 
2050 tipo=3:tono=2 
2060 xinc=0 

2070 WHILE x(l)+xinc<639 

2079 REM se actual iza xinc para la nueva figura 

2080 xinc=xinc+20 

2089 REM dibujo de la nueva figura en el color del fondo 

2090 GOSUB 5000 

2099 REM conmutacion de las tintas 

2100 GOSUB 4000 

2109 REM se borra la figura previa cuando esta del color del fondo 

2110 xinc=xinc-20 
2120 GOSUB 5000 

2129 REM se actual iza xinc para la figura actual 

2130 xinc=xinc+20 

2140 IF tono=2 THEN tono=l ELSE tono=2 
2150 WEND 
2160 RETURN 

2999 REM el perro se dibuja empalmando puntos 

3000 FOR con=comienzo TO comienzo+25 STEP 2 
3010 MOVE x(con)+xinc,y(con) 

3020 DRAW x(con+l)+xinc,y(con+l),tono 
3030 NEXT 
3040 RETURN 

3999 REM conmutacion de col ores 

4000 IF color=l THEN color=24:colorl=l ELSE color=l:colorl=24 
4010 INK 1, color 

4020 INK 2,colorl 
4030 RETURN 

4999 REM cambio del modo grafico entre dibujo y borrado 

5000 PRINT CHR$(23)CHR$(tipo); 

5010 IF tipo+tono=4 THEN comienzo=l ELSE comienzo=27 

5020 GOSUB 3000 

5030 IF tipo=2 THEN tipo=3 ELSE tipo=2 

5040 RETURN 
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La animacion que se obtiene asi es bastante suave. 



Ejercicios 

1. Dibuje una serie de circunferencias iguales en diferentes posiciones y con 
diferentes tintas, de manera que, al cambiar los colores de las tintas entre 
el del fondo y el color visible, se reproduzca el bote de una pelota. 

2. Construya, utilizando rectas, dos figuras de un gimnasta que realice un 
ejercicio con los brazos, animando entonces el movimiento mediante el 
empleo de tintas. 



ORDEN DE PRIORIDAD DE LOS COLORES 

Vamos a ver otra consecuencia de la manipulation de tintas. El programa 
siguiente dibuja dos rectangulos que se solapan parcialmente; esta vez se trata de 
rectangulos rellenos de color, uno amarillo y otro azul: 

10 MODE 1 

19 REM hacer amarillo el color cercano 

20 INK 3,24 

30 PRINT CHR$(23)CHR$(1); 

40 x=100:y=100 

50 xd=50:yd=100 

60 INK 1,24 

70 color=l:GOSUB 1000 

80 x=100:y=100 

90 xd=100:yd=50 

100 INK 2,20 

110 color=2:G0SUB 1000 

120 PRINT CHR$(23)CHR$(0); 
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170 END 

999 REM rectangulo relleno de color 

1000 FOR xcord=x TO x+xd STEP 2 
1010 MOVE xcord,y 

1020 DRAWR 3, yd, col or 
1030 NEXT 
1040 RETURN 

Al ejecutar el programa no le sorprendera el hecho de que uno de los 
rectangulos tape parte del otro. Lo que le sorprendera seguramente es que sea el 
amarillo, que se ha dibujado primero, el que tape al azul, que se ha dibujado mas 
tarde. La responsable es la linea 20, cuya consecuencia practica es convertir en 
amarilla el area comun a las dos figuras. Esto significa que hemos decidido que el 
amarillo sea el color del primer piano y el azul el color del fondo; por eso hemos 
dado prioridad al amarillo. 




Basta con cambiar la linea 20, haciendo que el area comun sea azul, y sera el 
rectangulo azul el que tape parte del amarillo: 



19 REM hacer azul el color cercano 

20 INK 3,20 



Es muy usual en los programas de 
juegos emplear esta posibilidad de dar 
prioridad a un color. Con un manejo 
adecuado de INK se logra que una figura 
pueda pasar sobre los dibujos del fondo 
sin borrarlos; o, lo que es todavia mas 
impresionante, que pueda pasar por 
detras de otras figuras y salir indemne 
por el lado contrario, como vamos a demostrar ahora 
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Vimos en el capitulo 2 que una de las formas mas sencillas de producir un 
dibujo animado es utilizar la sentencia TAG e ir escribiendo un caracter en 
sucesivas posiciones. El efecto que esto produce cuando en la pantalla hay 
dibujados objetos es previsible: 

10 MODE 1 

20 x=230:y=130 

29 REM dibujar y rellenar un rectangulo 

30 FOR xcord=x TO x+100 STEP 2 
40 MOVE xcord,y 

50 DRAWR 0,100,1 

60 NEXT 

70 xprint=0:yprint=180 

79 REM texto en el cursor grafico 

80 TAG 

89 REM escribir el caracter en las sucesivas posiciones 

90 FOR xcord=xprint TO 400 STEP 2 
100 MOVE xcord,yprint 

110 PRINT CHR$(233); 
120 NEXT 
130 END 




Como era logico, el caracter elimina todo aquello sobre lo que pasa. El efecto es 
aun peor si el caracter es de los que no tienen un borde bianco a la izquierda: 

109 REM caracter que es una flecha sin borde bianco a la izquierda 

110 PRINT CHR$(243); 
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La solucion es usar TAG en combinacion con la modalidad grafica XOR. Aun 
asi, no basta con limitarse a escribir el caracter: 

10 MODE 1 

20 x=230:y=130 

29 REM dibujar y rellenar un rectangulo 

30 FOR xcord=x TO x-1-100 STEP 2 
40 MOVE xcord,y 

50 DRAWR 0,100,1 
60 NEXT 

70 xprint=0:yprint=180 

71 REM opcion XOR 

75 PRINT CHR$(23)CHR$(1); 
80 TAG 

89 REM escribir el caracter en las sucesivas pos iciones 

90 FOR xcord=xprint TO 400 STEP 2 
100 MOVE xcord,yprint 

110 PRINT CHR$(243); 
120 NEXT 

129 REM opcion grafica normal y modo texto normal 

130 TAG0FF 

140 PRINT CHR$(23)CHR$(0); 
150 END 

El resultado es aun peor. La razon del fracaso es que, al combinar en la 
modalidad XOR un caracter con otro igual desplazado un punto a la derecha, lo 
que resulta no tiene nada que ver con el caracter original. 
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Vamos a utilizar una flecha disenada por nosotros con un borde bianco a la 
izquierda; es la de la figura 5.13. 



^^^h ^^^n ^^^h ^h^H ^^^v 1 

1 — ' ^B^' 

Hi 
. ■ ■ i 



Figura 5.13. Un caracter con borde bianco a la izquierda. 

Este caracter lo dibujaremos a la izquierda de la pantalla y lo iremos 
desplazando hacia la derecha un punto cada vez. La forma de hacerlo no va a ser, 
logicamente, componerlo en la modalidad XOR con el propio caracter desplazado; 
eso ya sabemos que no funciona. Lo que haremos sera definir un segundo 
caracter que, al componerlo con la flecha en la modalidad XOR, de una copia de 
la flecha desplazada un punto. La figura 5.14 esquematiza lo que queremos 
hacer. 
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Figura 5. 14. Composition con un segundo caracter en la modalidad XOR para crear una copia del 

primero desplazada un punto. 

Es facil buscar el segundo caracter que necesitamos. Una forma de hacerlo es 
proceder por tanteo fila por fila de puntos, como muestra la figura 5.15 para la 
primera fila. 



00001000 Primera fila de la flecha (8) 
XOR 0001 1000 compuesta con XOR con este numero (24) 



00001000 da la primera fila de la flecha desplazada (8) 



Figura 5.15. 

Pero hay un recurso mas sencillo que se basa en el hecho siguiente: si se 
compone un numero binario con un segundo mediante XOR, y el resultado se 
compone con el primer numero, lo que resulta ahora es el segundo numero. Lo 
que se hace entonces es componer (con XOR) la flecha con la flecha desplazada; 
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el resultado sera el caracter que hay que componer con la flecha para obtener la 
desplazada. En las figuras 5.16 y 5.17 se muestra claramente este proceso. 



00001000 
XOR 00001000 



00011000 



Primera fila de la flecha (8) 

compuesta con el resultado que se desea (8) 



da el numero con el que hay que componer (24) 



Figura 5.16. 



00001100 
XOR 00001100 



00010100 



00001110 



Segunda fila de la flecha (12) 

compuesta con el resultado que se desea (12) 



XOR 00001110 
00010010 



da el numero con el que hay que componer (20) 



Tercera fila de la flecha ( 1 4) 



compuesta con el resultado que se desea (14) 
da el numero con el que hay que componer ( 1 8) 



(y lo mismo para las restantes filas) 

Figura 5.17. 

Vamos a incorporar los dos caracteres en un programa, para demostrar como 
se realiza el desplazamiento dejando intacto el fondo: 

84 REM definicion del caracter flecha 

85 SYMBOL 240,8,12,14,127,127,14,12,0 

86 REM definicion del caracter auxiliar para XOR 

87 SYMBOL 241,24,20,10,129,129,18,20,24 
90 FOR xcord=xprint TO 400 STEP 2 

100 MOVE xcord,yprint 

108 REM escribir la flecha normal en la primera posicion 

109 REM y usar XOR para trasladar la flecha a la siguiente posicion 

110 IF xcord=xprint THEN PRINT CHR$(240); ELSE PRINT CHR$(241); 
120 NEXT 

129 REM opcion grafica normal y modo texto normal 
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130 TAGOFF 

140 PRINT CHR$(23)CHR$(0) 
150 END 




Con esto tenemos la puerta abierta a todo tipo de efectos en los programas de 
juegos. Combinando TAG, XOR y los cambios de color de las tintas, podemos 
disenar todos los tipos de comportamiento que son necesarios en los juegos. Se 
puede hacer que el protagonista sea capaz de atravesar los obstaculos amarillos 
de la pantalla, pero no los azules; que el monstruo que le persigue atraviese solo 
las barreras azules; o que nada detenga al supermonstruo cuando persigue al 
protagonista. 

Cuando cree un caracter que se desplace, debera recordar que debe disenarlo 
con un borde bianco de un punto de ancho. De otra manera, ira dejando un 
rastro al desplazarse. El borde debe estar en la posicion opuesta a la direccion del 
movimiento. La flecha de nuestro ejemplo lo llevaba a la izquierda porque debia 
desplazarse hacia la derecha. 

Si va a desplazar un caracter en todas las direcciones, debera disenar un 
caracter auxiliar diferente por cada direccion del movimiento, empleando cada 
caracter al realizar el desplazamiento en la correspondiente direccion. 

No hay por que limitarse a utilizar figuras con un solo caracter (aunque son las 
mas sencillas). El siguiente programa crea un coche compuesto por tres 
caracteres, y la correspondiente figura auxiliar formada tambien por tres 
caracteres. El coche se mueve a lo largo de la pantalla, pasando detras de los 
bloques amarillos y delante de los bloques de color cyan: 

10 MODE 1 

20 G0SUB 1000 

30 G0SUB 2000 

40 G0SUB 3000 

50 TAGOFF 

60 PRINT CHR$(23)CHR$(0); 
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70 END 

998 REM las areas de solapamiento seran de la tinta 3 que hemos hecho amarilla 

999 REM esto equivale a considerar mas cercano el piano del color amarillo 

1000 INK 3,24 
1010 y=100:color=l 

1020 FOR x=100 TO 500 STEP 50 

1030 G0SUB 4000 

1040 NEXT 

1050 RETURN 

2000 SYMBOL 240,0,15,28,124,127,18,12,0 

2010 SYMBOL 241,0,255,120,120,255,255,0,0 

2020 SYMBOL 242,0,128,192,254,254,72,48,0 

2030 SYMBOL 243,0,16,36,132,128,55,20,0 

2040 SYMBOL 244,0,0,137,137,0,1,0,0 

2050 SYMBOL 245,0,128,64,2,2,216,80,0 

2060 coche$=CHR$(240)+CHR$(241)+CHR$(242) 

2070 cochexor$=CHR$(243)+CHR$(244)+CHR$(245) 

2080 RETURN 

3000 PRINT CHR$(23)CHR$(1); 

3010 TAG 

3020 xprint=0:yprint=116 

3030 FOR xcord=xprint TO 550 STEP 2 

3040 MOVE xcord,yprint 

3050 IF xcord=xprint THEN PRINT coche$; ELSE PRINT cochexor$; 

3055 r$="":WHILE r$="" :r$=INKEY$:WEND 

3060 NEXT 

3070 RETURN 

4000 IF color=l THEN color=2 ELSE color=l 

4010 FOR xcord=x TO x+30 STEP 2 

4020 MOVE xcord,y 

4030 DRAWR 0,100, col or 

4040 NEXT 

4050 RETURN 



1 1 1 1 1 1 1 1 1 
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La linea 1000 consigue que la parte en que se solapan el coche cyan y el 
bloque amarillo quede de color amarillo. Si se cambia por INK 3,6 (color habitual 
de la tinta 3), el coche se volvera rojo al pasar por los bloques amarillos. 

El hecho de que el coche se convierta en azul (color del fondo) cuando pasa 
sobre un bloque cyan deteriora bastante el buen efecto. Esto es debido a que se 
superponen con XOR dos figuras con la misma tinta, con lo que el resultado es O, 
que es la tinta del fondo. 



0010 Un punto cyan 
XOR 0010 solapado por otro punto cyan 



0000 da un punto del color del fondo (azul) 



Figura 5.18. 

La solucion al problema estaria en dibujar los bloques cyan con otra tinta y 
preparar la tinta resultante para que de el color adecuado. El problema estriba en 
que el modo 1 admite 4 tintas y serian necesarias algunas mas. El modo 0, con 
sus 16 tintas, permite hacer lo que hemos dicho: 



10 MODE 

998 REM tinta 3 amarilla para que resulte adecuado el resultado del solapamiento 
cyan/amaril lo 

999 REM amarillo es el color de primer piano 

1000 INK 3,24 

1001 REM tinta 6 cyan para que resulte adecuado el resultado del solapamiento 
cyan/bianco 

1002 REM bianco es el color del fondo 

1003 INK 6,20 

2071 MOVE 0,0 

2072 DRAW 0,0,2 

3030 FOR xcord=xprint TO 550 STEP 4 

4000 IF color =1 THEN color=4 ELSE color=l 

4010 FOR xcord=x TO x+30 STEP 2 

4020 MOVE xcord,y 

4030 DRAWR 0,100, col or 

4040 NEXT 

4050 RETURN 
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En el modo cada tinta se representa por cuatro bits. El coche es de la tinta 2, 
y puede pasar sobre bloques amarillos (de tinta 1) y sobre bloques blancos (de 
tinta 4). A la vista de la figura 5.19, lo que habra que hacer sera convertir en 
amarilla la tinta 3 y en cyan la 6; es lo que se ha hecho en el programa en las 
lineas 1000 y 1003. 



0010 



El coche cyan 



XOR0001 
0011 



sobre un bloque amarillo 

resulta de la tinta 3 (roja por defecto) 



0010 



El coche cyan 



XOR0100 sobre un bloque bianco 

0110 resulta de la tinta 6 (azul intenso por defecto) 



Figura 5.19. 

Tambien se puede hacer que el coche pase por delante de los bloques amarillos 
y por detras de los blancos: 

998 REM tinta 3 cyan para que resulte adecuado el resultado del solapamiento 
cyan/amari 11 o 

999 REM ahora amarillo es el color del fondo 

1000 INK 3,20 

1001 REM tinta 6 blanca para que resulte adecuad o el resultado del solapamiento 
cyan/bianco 
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1002 REM ahora bianco es el color de primer piano 

1003 INK 6,26 




Hay que advertir que surge una pequeria complicacion por el hecho de que, al 
usar TAG, la escritura de caracteres se hace con la tinta de la pluma grafica; esta 
tinta solo se puede cambiar con los corvados graficos. Para que el color del coche 
sea cyan, la tinta de la pluma grafica debe cambiar de 4 (blanca) a 2 (cyan). Esa 
es la razon de las lineas 2071 y 2072, sin las cuales el coche se dibujara en 
bianco. 

El modo ofrece las mejores oportunidades para crear diferentes pianos con 
los colores, dado el muestrario de tintas que permite. Podemos, por ejemplo, 
seleccionar colores de fondo, intermedios y de primer piano, como en la figura 
5.20. Con esa distribucion, el bit mas a la derecha indica presencia de amarillo, 
color lejano; el siguiente bit indica presencia de cyan, color intermedio; el 
siguiente indica bianco, que es el color del primer piano. Otras combinaciones de 
bits muestran el ocultamiento de unos colores por otros. 

Con la opcion XOR podemos dibujar o borrar lineas de cualquier color sin 
alterar las superficies solapadas o las lineas ocultas de otros colores. Como 
ejemplo, veamos el efecto de XOR sobre una linea blanca situada en un piano 
proximo, que oculta una linea cyan situada en un piano medio, que a su vez 
oculta una linea amarilla situada al fondo. El efecto de borrar la linea blanca se 
ve en la figura 5.21, y el efecto de borrar la linea cyan en la figura 5.22. 

0000 Azul — fondo lejano 

000 1 Amarillo — fondo proximo 

0010 Cyan — piano medio 

00 1 1 Cyan — piano medio tapando fondo proximo 

0100 Blanco — primer piano 

0101 Blanco — primer piano tapando fondo proximo 
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0111 Blanco — primer piano tapando piano medio, que a su vez tapa fondo proximo 

Figura 5.20. Creacion de diferentes pianos de colores, 
eligiendo colores adecuados para las tintas. 



0111 
XOR0100 



0011 



Blanco que oculta cyan que oculta amarillo 
al borrar el bianco 



aparece el cyan 



Figura 5.21. 



0111 Blanco que oculta cyan que oculta amarillo 
XOR 0010 al borrar el cyan 

0101 queda bianco que oculta amarillo 



Figura 5.22. 

Es decir, se pueden borrar colores sin alterar los que esten en otros pianos. El 
programa siguiente dibuja una superficie blanca sobre una cyan que esta a su 
vez sobre una amarilla, permitiendo comprobar el efecto de borrar o dibujar 
cualquiera de estas superficies: 

10 MODE 

20 GOSUB 1000 

30 GOSUB 2000 

40 GOSUB 3000 

50 PRINT CHR$(23)CHR$(0); 

60 MODE 1 

70 END 

999 REM tintas con las colores apropiados 

1000 INK 3,20 
1010 INK 5,26 
1020 INK 6,26 
1030 INK 7,26 
1040 RETURN 

1999 REM dibujar tres rectangulos uno encima de otro 

2000 xamari 1 1 o= 100 :yamari 1 1 o=40 : 1 adoamari 1 1 o=300 
2010 xcyan=150:ycyan=80:ladocyan=220 
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2020 xbl anco=200 :ybl anco=120 : 1 adobl anco=140 

2029 REM opcion XOR 

2030 PRINT CHR$(23)CHR$(1); 

2040 col or=l : x=xamari 1 1 o :y=yamari 1 1 o : 1 ado=l adoamari 1 1 o 

2050 G0SUB 4000 

2060 col or=2 :x=xcyan :y=ycyan : 1 ado=l adocyan 

2070 G0SUB 4000 

2080 col or=4 : x=xbl anco :y=ybl anco : 1 ado=l adobl anco 

2090 G0SUB 4000 

2100 RETURN 

3000 WINDOW 1,20,25,25 

3009 REM peticion de comando 

3010 WHILE respuesta$<>"e" 

3020 INPUrComando (a/c/b/e) ",respuesta$ 

3029 REM dibujo o borrado del amarillo 

3030 IF respuesta$="a" THEN 

col or= 1 : x=xamari 1 1 o :y=yamari 1 1 o : 1 ado=l adoamari 1 1 o : G0SUB 4000 

3039 REM dibujo o borrado del cyan 

3040 IF respuesta$="c" THEN col or=2:x=xcyan:y=ycyan:lado=l adocyan :G0SUB 4000 

3049 REM dibujo o borrado del bianco 

3050 IF respuesta$="b" THEN color=4:x=xblanco:y=yblanco:lado=ladoblanco:G0SUB 
4000 

3890 WEND 

3900 RETURN 

4000 FOR xcord=x TO x+lado STEP 4 

4010 MOVE xcord,y 

4020 DRAWR 0,1 ado, col or 

4030 NEXT 

4040 RETURN 




La linea 3020 solicita una letra 'a', 'c' o 'b' para borrar o dibujar la superficie 
amarilla, cyan o blanca ('e' es para terminar). Borrando o dibujando cualquiera de 
las superficies comprobara que no se alteran las demas. 
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Ejercicios 

1. Defina un barco con uno o mas caracteres, junto con los caracteres 
auxiliares para desplazarlo con la opcion XOR a lo largo de la pantalla. 

2. Mejore el programa para que el barco navegue en una masa de agua azul y 
por delante de un grupo de arrecifes blancos que sobresalgan del agua. 

3. Anada unas colinas de hierba que se vean detras del barco. 

4. Ponga otro barco navegando en sentido contrario. Al cruzarse, uno pasara 
delante del otro. 

5. Cambie el orden de prioridad de los colores en el programa de las tres 
superficies rectangulares, de manera que el amarillo este en primer piano y 
el bianco al fondo. Al comienzo, solo debera verse el rectangulo amarillo, y 
el bianco debera aparecer unicamente despues de borrar los otros dos. 

6. Anada un cuarto rectangulo de color diferente y que sea mas cercano que 
los otros tres. El bianco quedara en un piano medio delantero y el cyan en 
un piano medio trasero. Ajuste tintas y colores para que cada uno pueda 
anadirse o borrarse sin alterar los demas. 
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6. . . . y dibujo artistico 

En el capitulo 4 desarrollamos un programa que permitia al usuario dibujar en la 
pantalla y grabar el dibujo en un fichero para su utilizacion posterior. Ahora 
vamos a perfeccionarlo con la inclusion de posibilidades tales como dibujo y 
coloreado de circulos, rectangulos y otras figuras. 

SELECCION A PARTIR DE UN MENU 

El programa que teniamos se gobernaba exclusivamente pulsando determinadas 
teclas. Pero muchos programas de este tipo funcionan mediante seleccion a partir 
de un menu dibujado en la pantalla. Se trata de un dibujo que representa las 
opciones que puede escoger el usuario: seleccion de una figura, seleccion de un 
color, escala para el dibujo, etc. (Vease la figura 6.1.) 



Cargar o 
grebor 


CttmUar 

color 


Som- 
breai 


Bcrrtr 
pt Malta 


Escala 


On 


A 


/ 



Figura 6. 1. Menu tipico de un programa de dibujo 



La seleccion se realiza llevando el cursor a la opcion deseada. El ordenador 
toma nota de la posicion del cursor y lleva a cabo la opcion indicada en dicha 
posicion. Este sistema hace mas sencilla la eleccion, siempre que los dibujos del 
menu tengan un significado suficientemente claro. Con el no hace falta recordar 
que tecla hay que pulsar para cambiar el color de una linea, dibujar una 
circunferencia, etc. 

Sin embargo, hay cosas que se controlaran mediante teclas (o con los mandos 
de juego, que es lo mismo). Las mas evidentes son los movimientos del cursor y la 
fijacion de un punto; nosotros dejaremos tambien para el teclado la alternativa 
entre dibujar o no dibujar la linea. Para estas funciones, es fastidioso tener que 
perder el tiempo recorriendo el menu con el cursor. 

Nuestro nuevo programa incluye la opcion de seleccionar el color de las lineas 
(entre ocho posibles, incluyendo el del fondo), y tambien la de dibujar rectas, 
circunferencias, triangulos o rectangulos. Otra opcion es la de rellenar o no 
rellenar una figura cerrada. 

Para seleccionar la opcion en el menu, hay que pulsar la barra espaciadora 
(que se utiliza tambien para fijar los puntos) cuando el cursor se encuentra sobre 
la opcion deseada. Como resultaria dificil recordar las opciones que se han 
elegido, estas se representan mediante un caracter que aparece en la esquina 
inferior izquierda de la pantalla, que sirve para reflejar la situacion actual. El 
menu aparece en la parte baja de la pantalla, aunque esto es cuestion de gustos; 
hay quien prefiere que este arriba o en un lateral. 
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Vamos a comenzar por la parte basica del programa: 

10 MODE 

20 GOSUB 1000 

30 GOSUB 2000 

40 END 

1000 xant=320:yant=200 

1010 x=xant:y=yant 

1020 colorvisible=l 

1030 lineadib=0 

1037 REM imprimir el simbolo de la esquina inferior izquierda 

1038 REM para que se tenga a la vista la situacion actual 

1039 REM info$ es una linea amarilla al principio, que es la opcion de entrada 

1040 info$=CHR$(47) 
1050 LOCATE 1,24 
1060 PRINT info$; 
1070 menux=5:menuy=24 

1079 REM definir simbolo para triangulo y para relleno/no relleno 

1080 SYMBOL 240,0,2,6,10,18,34,66,254 

1090 SYMBOL 241,255,129,129,129,129,129,129,255 

1099 REM dibujar muestras de color de las tintas a 7 

1100 LOCATE menux,menuy 
1110 PRINT CHR$(241); 
1120 FOR color=l TO 7 
1130 PEN color 

1140 PRINT CHR$(143); 
1150 NEXT 
1160 PEN 1 

1169 REM dibujar simbolos de linea, circunferencia,rectangulo, triangulo y no 
relleno 

1170 PRINT CHR$(47)CHR$(79)CHR$(232)CHR$(240)CHR$(241); 
1180 PRINT CHR$(23)CHR$(1); 

1900 RETURN 

1999 REM cursor a la posicion inicial 

2000 GOSUB 3000 

2009 REM repetir hasta que se pulse 'e' 

2010 WHILE respuesta$<>"e" 

2019 REM borrar el cursor con X0R 

2020 GOSUB 3000 

2029 REM leer la entrada del teclado 

2030 GOSUB 4000 

2039 REM dibujar el cursor 

2040 GOSUB 3000 
2900 WEND 

2910 RETURN 

2999 REM rutina de dibujo/borrado de lineas 

3000 PLOT x,y,colorvisible 
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3010 IF lineadib=0 THEN RETURN 
3020 DRAW xant,yant 
3030 RETURN 

3999 REM rutina para examinar el teclado y tomar la decision apropiada 

4000 respuesta$=LOWER$(INKEY$) 
4010 IF respuesta$="a" THEN y=y+2 
4020 IF respuesta$="z" THEN y=y-2 
4030 IF respuesta$="," THEN x=x-4 
4040 IF respuesta$="." THEN x=x+4 

4048 REM la barra de espacio fija el punto 

4049 REM si la coordenada y corresponde a la zona de dibujo 

4050 IF respuesta$=" " AND y>31 THEN G0SUB 5000: 1 ineadib=colorvisible 

4059 REM si no, la barra de espacio selecciona opcion del menu 

4060 IF respuesta$=" " AND y<32 THEN G0SUB 6000 

4069 REM conmutar entre si/no el dibujo de la li nea 

4070 IF respuesta$="l" THEN IF lineadib=0 THEN lineadib=colorvisible ELSE 
1 ineadib=0 

4900 RETURN 

4999 REM dibujar de manera permanente una linea 

5000 PRINT CHR$(23)CHR$(0); 
5010 G0SUB 3000 

5020 PRINT CHR$(23)CHR$(1): 
5030 xant=x:yant=y 
5900 RETURN 

5999 REM elegir opcion del menu; se rechaza si no esta en el menu 

6000 IF x<128 OR x>543 OR y<16 THEN RETURN 
6010 SOUND 7,400 

6019 REM x<384 significa que la opcion es un cambio de color 

6020 IF x<384 THEN colorvisible=TEST(x,y) :G0SUB 7000:RETURN 

6029 REM deducir opcion segun sea la coordenada 

6030 IF x<416 THEN info$=CHR$(47) :G0SUB 7000:RETURN 
6040 IF x<448 THEN info$=CHR$(79) :G0SUB 7000:RETURN 
6050 IF X<480 THEN info$=CHR$(232) :G0SUB 7000:RETURN 
6060 IF x<512 THEN info$=CHR$(240) :G0SUB 7000:RETURN 

6069 REM debe ser la opcion de conmutar relleno/no relleno 

6070 G0SUB 15000 
6080 RETURN 

7000 PEN colorvisible 

7010 LOCATE 1,24 

7020 PRINT info$ 

7030 RETURN 

15000 REM a completar despues 

15010 RETURN 



Esta parte permite ya elegir las opciones, aunque, por el momento, solo es 
operativa la posibilidad de dibujar rectas de diferentes colores. 
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El ordenador considera que se desea elegir una opcion, en lugar de fijar un 
punto, cuando la coordenada Y del cursor es menor que 32 en el momento de 
pulsar la barra espaciadora. Las lineas 4050 y 4060 podrian combinarse en una 
sola sentencia IF THEN ELSE, pero las hemos separado para mayor claridad. La 
subrutina 6000 comprueba si la coordenada X corresponde al area del menu y 
realiza la eleccion dependiendo del valor de la coordenada. La 7000 dibuja el 
caracter info$ en la esquina inferior izquierda de la pantalla; es el caracter que 
sirve para recordar las opciones elegidas y cambia al seleccionar una nueva 
opcion. 

Anadir el dibujo de figuras concretas no presenta grandes problemas, pero 
vamos a describir cuidadosamente la forma en que se implementan estas 
opciones. Como ya vimos en el capitulo 3, los dibujos de circunferencias son 
lentos; no es aconsejable que la opcion se lleve a cabo dibujando y borrando las 
circunferencias potenciales (con XOR), salvo que el programa quiera hacerse 
insoportable por su lentitud. Lo que hemos hecho es lo siguiente: cuando se ha 
seleccionado la opcion circunferencia, el primer punto que se fije sera el centro, y 
el siguiente, un punto de la circunferencia; por lo tanto, el radio de la 
circunferencia sera la distancia entre ambos puntos. 
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Figura 6.2. Un rectangulo queda identificado por dos vertices opuestos. 

Para las opciones triangulo y rectangulo seria posible dibujar y borrar varias 
veces la figura, ya que intervienen pocas lineas. Las dos opciones trabajan de 
forma algo diferente. Cuando se han fijado dos vertices del triangulo, el tercero 
puede estar en cualquier parte. Sin embargo, si se fija un vertice del rectangulo 
de lados paralelos a los bordes de la pantalla, el resto de la figura queda 
perfectamente determinada en cuanto se conoce el vertice opuesto, o sea, una 
diagonal completa. Luego, para los rectangulos, habra que fijar dos puntos que 
representaran vertices opuestos. 

Cuando se esta definiendo un triangulo o un rectangulo, el problema de la 
fijacion de los puntos necesarios se resuelve como en el caso de rectas, pero el 
dibujo y borrado sucesivo de la figura no es lo mismo, ya que hay que trabajar 
con varias lineas a la vez; por eso no sirve la rutina anterior en este caso. 
Nosotros hemos hecho que los triangulos y rectangulos no se dibujen mientras no 
esten fijados todos los puntos necesarios. Esto es menos atractivo que ir 
dibujando el triangulo o rectangulo potencial hasta llegar al que se desea, pero 
esta modalidad podra realizarla el lector como ejercicio. 
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Figura 6.3. Mientras no se fije el tercer vertice de un triangulo, dos de 
los lados quedaran indeterminados. 



4999 REM comprobacion de la eleccion circ/rectangulo/triangulo. 

5000 PRINT CHR$(23)CHR$(0); 

5001 IF circ>0 THEN GOSUB 8000 

5002 IF rectangulo>0 THEN GOSUB 9000 

5003 IF triangulo>0 THEN GOSUB 10000 
5010 GOSUB 3000 

5020 PRINT CHR$(23)CHR$(1); 
5030 xant=x:yant=y 
5700 RETURN 

5999 REM elegir opcion del menu; se rechaza si no esta en el menu 

6000 IF x<128 OR x>543 OR y<16 THEN RETURN 
6010 SOUND 7,400 

6019 REM x<784 significa que la opcion es un cambio de color 

6020 IF x<384 THEN colorvisible=TEST(x,y) :G0SUB 7000:RETURN 

6029 REM deducir opcion segun sea la coordenada 

6030 IF x<416 THEN info$=CHR$(47) :G0SUB 7000:RETURN 

6040 IF x<448 THEN info$=CHR$(79) :G0SUB 7000:circ=l:RETURN 

6050 IF x<490 THEN info$=CHR$(232) :G0SUB 7000 :rectangulo=l: RETURN 
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6060 IF x<512 THEN info$=CHR$(240) :G0SUB 7000 :triangulo=l: RETURN 

6069 REM debe ser la opcion de conmutar relleno/no relleno 

6070 G0SUB 15000 
6080 RETURN 

7000 PEN colorvisible 

7010 LOCATE 1,24 

7020 PRINT info$ 

7025 IF x<384 THEN RETURN 

7029 REM opcion anulada; nueva eleccion 

7030 circ=0 
7040 tn'angulo=0 
7050 rectangulo=0 
7060 RETURN 

7999 REM dibujo de la circunferencia: se requiere el centro y un punto de la 
circunferencia 

8000 IF circ=l THEN circ=2: RETURN 

8009 REM ahora tenemos los dos puntos y podemos calcular el radio 

8010 xd=ABS(x-xant) :yd=ABS(y-yant) 
8020 radio=SQR(xd*xd+yd*yd) 

8030 MOVE xant,yant+radio 

8040 FOR angulo=0 TO 2*PI STEP PI/60 

8050 DRAW xant+radio*SIN(angulo),yant+radio*COS(angulo) 

8060 NEXT 

8070 DRAW xant,yant+radio 

8080 PLOT xant,yant,0 

8089 REM poner el indicador de circ a 1 para la siguiente circunferencia 

8090 circ=l 
8100 RETURN 

8999 REM rutina de dibujo del rectangulo; se requieren dos vertices 

9000 IF rectangulo=l THEN rectangulo=2: RETURN 
9010 MOVE xant,yant 

9020 DRAWR x-xant,0,colorvi sible 
9030 DRAWR 0,y-yant 
9040 DRAWR xant-x,0 
9050 DRAWR 0,yant-y 

9059 REM poner el indicador rectangulo a 1 para el rectangulo siguiente 

9060 rectangulo=l 
9070 RETURN 

9999 REM rutina de dibujo del triangulo; se nece sitan los tres vertices 

10000 IF triangulo=l THEN triangulo=2:xl=x:yl=y:RETURN 
10010 IF triangulo=2 THEN triangulo=3: RETURN 

10020 MOVE x,y 

10030 DRAW xant,yant, colorvisible 

10040 DRAW xl.yl 

10050 DRAW x,y 

10059 REM poner el indicador triangulo a 1 para el siguiente triangulo 

10060 triangulo=l 
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10070 RETURN 

15000 REM a completar despues 

15010 RETURN 




La seleccion de las opciones circunferencia, rectangulo o triangulo se 
manifiesta porque pone a 1 el correspondiente indicador (la variable cuyo nombre 
coincide con la opcion). La rutina 7000 sirve para que los otros indicadores 
queden a O; en otro caso se dibujarian dos o tres figuras a la vez. La linea 7025 
se incluye para que no se pongan los indicadores a cuando la opcion ha sido 
simplemente de cambio de color. Las lineas 5001 a 5003 se encargan de enviar el 
programa a la rutina apropiada para la realizacion de la correspondiente figura. 

Las subrutinas 8000, 9000 y 10000, que son las encargadas de realizar estos 
dibujos, tienen algo en comun: si el numero de puntos seleccionados no completa 
los que necesita la figura, la rutina se limita a incrementar el indicador, 
pasandose a la seleccion de nuevos puntos. Esto es lo que hacen las lineas 8000, 
9000, 10000 y 10010. El indicador sirve asi al mismo tiempo para contar los 
puntos fijados para la figura. Dos puntos bastan para la circunferencia o el 
rectangulo, pero la opcion triangulo necesita tres. 

Cuando los puntos fijados son suficientes, se dibuja la figura y el indicador se 
carga con el valor 1. Esto significa que, si se ha escogido una opcion como la 
circunferencia, por ejemplo, esta opcion continuara en pie mientras no se elija 
otra explicitamente en el menu. Si no se tiene esto en cuenta, es facil que se 
obtengan resultados inesperados al tratar de dibujar una recta mientras se 
encuentra activa la opcion triangulo o rectangulo. 

Por la forma en que esta estructurado el programa, permite ahadir sin 
dificultad otras opciones, tales como dibujo de elipses, rombos, etc. 

Ejercicios 

1. Aumente la gama de colores hasta 10 colores elegidos por usted. 

2. Introduzca en el menu la opcion de borrar toda la zona de pantalla de- 
dicada al dibujo. Esto debe hacer que toda la pantalla tome el color del 
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fondo. 

3. Ariada una nueva opcion que permita dibujar arcos. Un arco debera quedar 
especificado por su centro y por los dos puntos de sus extremos. 



RELLENADO DE COLOR 

Pasaremos ahora a la rutina de rellenado o sombreado de las figuras cerradas. El 
Amstrad dispone de un comando que permite rellenar de un color grandes 
superficies; es el comando WINDOW. Lamentablemente, estas areas son 
forzosamente rectangulares y definidas mediante coordenadas de texto, por lo 
que tendremos que elaborar nuestro propio metodo de rellenar una superficie con 
color. (Esto se refiere al modelo CPC464; en los siguientes modelos se dispone de 
la orden FILL, con la que se pueden rellenar recintos cualesquiera.) 

Es evidente que, para rellenar completamente el interior de una figura, 
deberemos examinar cada uno de los puntos que estan en su interior. 

Dividiremos el problema en varias etapas, elaborando primero una rutina que 
rellene los puntos de un segmento de recta, y extendiendola luego al caso de 
superficies. 

Supongamos que hemos elegido un punto cualquiera del interior de nuestra 
figura. Un proceso de dos etapas nos permitira rellenar de color todos los puntos 
de su misma fila. Se examina primero el punto que se encuentra a su derecha 
con la instruccion TEST. Si es del color del fondo, el punto se dibuja del color 
deseado; este punto se convierte ahora en el nuevo punto de arranque. El proceso 
se repite hasta que se encuentre un punto que no tenga el color del fondo, lo que 
significara que se ha alcanzado el borde de la figura. Este proceso esta 
esquematizado en la figura 6.4. 

©•••••*• O 

^ 

direction de avance 

O — punto da arranqua 

% — punto dfbujado 

© - pgnto Ifimtts due no as dd color dat fondo 

Figura 6.4. 

Por este procedimiento se une el punto elegido con el borde de la figura 
mediante una linea horizontal. Los restantes puntos a rellenar se localizan por el 
mismo procedimiento, pero avanzando ahora hacia la derecha. La siguiente 
rutina rellena de esta manera unas cuantas lineas: 

1 REM este es un programa independiente 

2 REM pero las subrutinas 
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3 REM estan preparadas para ser incorporadas al programa principal 
10 MODE 

19 REM dibujo de un triangulo para que sirva de ejemplo 

20 MOVE 200,100 
30 DRAW 450,350 
40 DRAW 340,400 
50 DRAW 200,100 

54 REM se eligen 10 puntos al azar para rellenar rectas partiendo de ellos 

55 FOR con=l TO 10 

59 REM punto al azar dentro del triangulo 

60 rand=INT(RND(l)*230) :xarranque=210+rand:yarranque=110+rand 
70 col orvi si bl e=l :yrel 1 =yarranque 

79 REM relleno a la izquierda del punto 

80 xinc=-4:xrell=xarranque 
90 G0SUB 18000 

98 REM ahora a la derecha, pero no se empieza por 

99 REM el propio punto si no por el que esta a su izquierda 

100 xinc=4:xrell=xarranque-4 
110 G0SUB 18000 

120 NEXT 
130 END 

17999 REM comprobar punto por. punto a izquierda o derecha 

18000 t=0:WHILE t=0 
18010 
18020 
18028 
18029 
18030 

18040 WEND 
18050 RETURN 



xrell=xrell+xinc 

t=TEST(xrell,yrell) 

REM si t=0 es punto es del color del fondo 

REM y hay que dibujarlo 

IF t=0 THEN PLOT xrell ,yrell ,colorvisible 




150 



Tecnicas de programacion de grdficos en el Amstrad, rev 2009 (0.90 preliminar) 

La subrutina 18000 es invocada dos veces: una con incrementos de -4 para la 
coordenada X (avance hacia la izquierda) y otra con incrementos +4 (avance hacia 
la derecha). (Observe que la cuantia del incremento dependera del modo de 
pantalla; en el modo 1 los incrementos serian de ±2.) 

Compruebe que esta rutina funciona en cualquier caso, haciendola trabajar 
con otra figura, pero cuidando de que las coordenadas xarranque e yarranque 
sean de un punto inferior a la figura. 

£,Que ocurre si el punto inicial esta fuera de la figura? Ahora el comando TEST 
va a ser insuficiente por si mismo. Yendo hacia la izquierda, podemos llegar 
perfectamente fuera de la pantalla; el comando TEST considera estos puntos 
exteriores a la pantalla como si tuvieran el color del fondo. En consecuencia no 
terminariamos nunca de rellenar. 

Hay varias formas de solucionar este inconveniente. Por ejemplo, podemos 
hacer comprobaciones sobre los valores que va tomando la variable xrell: 

59 REM puntos dentro y fuera del triangulo 

60 rand=INT(RND(l)*230) :xarranque=150+rand:yarranque=110+rand 

17999 REM comprobar punto por punto a izquierda o derecha 

18000 t=0:WHILE t=0 AND xrell>0 AND xrell<639 

Esto, sin embargo, requiere muchas comprobaciones y hace bastante mas 
lento el programa. Otra posibilidad mas rapida es construir un borde de color 
alrededor de la pantalla; al llegar al borde la rutina encontraria asi un punto que 
no es del color del fondo, suspendiendo entonces el proceso de relleno. 

Nuestra rutina para rellenar lineas ya esta completa. ^Corno extenderla para 
que rellene una figura plana? Una forma es examinar los puntos que estan 
encima y debajo de los de la linea que se va rellenando; si se encuentran puntos 
del color del fondo, sus coordenadas pueden almacenarse para servir 
posteriormente de puntos de arranque en el rellenado de nuevas lineas. Esto es lo 
que se representa en la figura 6.5. 



© eooooo 

flDOOOOOO -*-i^ Ln Kwrdf nadn d* *tfm punlO* <• win 
?';■'••#*••♦ * '"^- fllmacwiHndo on un* rratriz pitt 

fcOOOOOOOO -*-"""^ coforaarlos mfa ardfl 

O - punto del color del fondo 

■ - punus dasujueto 

3 - punto Hmftn qua nundtl color did 'undo 

Figura 6.5. 

Parece en principio que solo deberiamos ir comprobando puntos hasta 
encontrar uno del color del fondo. Pero ciertas formas exigen la comprobacion de 
todos los puntos, como ocurre con la de la figura 6.6. En figuras como esta, solo 
quedaran rellenos ciertos trozos de las partes verticales si no se examinasen 
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todos los puntos. Comprobar todos los puntos consume mucho tiempo, por lo 
que deberemos elegir entre velocidad y perfection, entre rapidez con eventuales 
fallos o lentitud con la seguridad de un buen rellenado. 



























1 


** , — 


3 


2 



La ultima IFnea tratada 

1 — estos puntos de la lltwa de enclima scran reltenados 

2 — estos pumas de la linea da enclma fa estar> Latoreadus 

3 — estos. pwntro de la Knee de encima estan sin col wear y queriaran asf salvo que la compro- 

bacion se lleva a cabo para todos los puntos 



Figura 6.6. 

Una rutina como la que sigue es imperfecta, pero no obstante funciona bien 
con buena parte de las figuras usuales examinando solo 4 puntos: 

10 MODE 

14 REM matrices para las coordenadas de los punt os no coloreados 

15 DIM x(300),y(300) 

19 REM aqui pude icorporar su propia figura de p rueba 

20 xant=150:yant=150 
30 MOVE xant,yant 

40 DRAWR 100,0 
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50 DRAWR 0,100 
60 DRAWR -100,0 
70 DRAWR 0,-100 

78 REM x e y son las coordenadas de un punto 

79 REM de dentro de la figura 

80 x=200:y=200 

90 colorvisible=l 

100 G0SUB 15000 

110 PRINT CHR$(23)CHR$(0); 

999 END 

15000 comienzo=2: final =1 

15010 xrell=x:yrell=y 

15020 x(2)=x:y(2)=y 

15030 PRINT CHR$(23)CHR$(0); 

15040 PLOT x,y,0 

15050 G0SUB 16000 

15060 G0SUB 17000 

15070 PRINT CHR$(23)CHR$(1); 

15080 IF circ>0 OR rectangulo>0 OR triangulo>0 THEN PLOT x,y,colorvisible 

15090 RETURN 

15999 REM comprobar el color del punto 

16000 xactual =xrel 1 :yactual =yrel 1 

16010 IF TEST(xrell,yrell)<>0 THEN RETURN 
16020 xinc=-4 

16029 REM comprobacion del color de los puntos de la izquierda 

16030 G0SUB 18000 

16040 xrel 1 =xactual -4:yrel 1 =yactual 

16049 REM comprobacion del color de los puntos de la derecha 

16050 xinc=4 
16060 G0SUB 18000 
16070 RETURN 

16999 REM se toman puntos de la lista mientras haya 

17000 WHILE comienzo<>(final+l) MOD 300 
17010 xrel 1 =x(comienzo) :yrel 1 =y(comienzo) 
17020 comienzo=(comienzo+l) MOD 300 
17030 G0SUB 16000 

17040 WEND 
17050 RETURN 

17999 REM comprobacion punto por punto a izquierda o derecha 

18000 t=0:WHILE t=0 
18010 xrell=xrell+xinc 
18020 t=TEST(xrell,yrell) 

18030 IF t=0 THEN PLOT xrel 1 ,yrel 1 ,colorvisible 

18040 WEND 

18050 xrel 1 =xrel 1 -xi nc :yrel 1 =yrel 1 -2 

18059 REM si el punto de la linea de abajo no esta coloreado, se almacena 

18060 IF TEST(xrell,yrell)=0 THEN G0SUB 19000 
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18070 yrell=yrell+4 

18079 REM si el punto de la linea de arriba no esta coloreado, se almacena 

18080 IF TEST(xrell,yrell)=0 THEN GOSUB 19000 
18090 RETURN 

18999 REM almacenamiento de las coordenadas del punto no coloreado 

19000 final=(final+l) MOD 300 
19010 x(final)=xrell :y(final)=yrell 
19020 RETURN 




Pruebe el programa con diferentes figuras. Los puntos que son examinados son 
los que se encuentran en diagonal encima y debajo de los puntos finales de la 
linea que se esta tratando. Las coordenadas de los nuevos puntos a rellenar se 
almacenan en las matrices x( ) e y( 1. Las variables puntero comienzo y final 
sirven para indicar posiciones en estas matrices; comienzo indica el elemento de 
las matrices que contiene las coordenadas del siguiente punto del que arrancara 
el proceso; final indica el primer elemento de la matriz que esta todavia libre. 

Por ejemplo, despues de rellenar la primera linea, es muy probable que los 
cuatro puntos que se examinan en las lineas superior e inferior sean del color del 
fondo; sus coordenadas se almacenaran en x( ) e y( ). La subrutina 17000 
considera sucesivamente cada punto de los que estan almacenados en la matriz, 
y la 16000 examina los puntos que estan a la izquierda y a la derecha del punto 
elegido. Los puntos se colorean con la subrutina 18000 (linea 18030) mientras no 
se encuentre uno del color del fondo. Las lineas 18050-18080 comprueban el 
color de los puntos situados en diagonal respecto al punto limite, y la subrutina 
19000 los almacena en las matrices si son del color del fondo. 
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e • • • • • #0 

* # 

- puntos limite 

• - puntos dibujados en la tfnes 

* - puntos cuyo color sa compfuebe 

Figura 6.7. 

Las lineas 17000 y 19000 llevan el operador MOD porque las matrices se 
tratan en forma circular. No sabemos a priori cuantos puntos debera almacenar 
el ordenador, y 300 parece un limite razonable. Si la figura es grande y 
complicada habra que almacenar mas puntos que estos. Lo mejor entonces es no 
perder los ultimos puntos, sino almacenarlos en los lugares correspondientes a 
puntos que ya habran sido seguramente tratados. 

Esta rutina consigue rellenar un 90% de la superficie de los circulos, pero los 
polos superior e inferior no los rellena debido a que los arcos de dicha zona estan 
formados por pequerios segmentos horizontales. Para nuestra rutina esto causa 
el mismo efecto que una linea horizontal completa. Se puede resolver este 
problema, con un pequeho deterioro en la velocidad, examinando dos puntos 
mas: 

19 REM rectangulo con un brazo vertical 

20 xact=150:yact=150 
30 MOVE xact,yact 

40 DRAWR 100,0 
50 DRAWR 0,100 

55 DRAWR -10,0 

56 DRAWR 0,50 

57 DRAWR -60,0 

58 DRAWR 0,-50 
60 DRAWR -30,0 
70 DRAWR 0,-100 

16000 xactual =xrel 1 :yactual =yrel 1 

16010 IF TEST(xrell,yrell)<>0 THEN RETURN 

16020 zinc=-4 

16029 REM comprobacTon del color de los puntos de la izquierda 

16030 G0SUB 18000 

16031 REM coordenadas del extremo izquierdo de la linea 

16032 xizq=xrell 

16040 xrel 1 =xactual -4:yrel 1 =yactual 

16049 REM comprobacion del color de los puntos de la derecha 

16050 xinc=4 16060 G0SUB 18000 

16061 REM coordenadas del extremo derecho de la linea 

16062 xder=xrell 
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16063 REM calcular el punto medio de la linea 

16064 REM y comprobar el color de los puntos de arriba y abajo 

16065 xrel 1 = (xi zq+xder) /2 :yrel 1 =yactual -2 

16066 IF TEST (xrel l,yrell)=0 THEN GOSUB 19000 

16067 yrell=yactual+2 

16068 IF TEST(xrell,yrell)=0 THEN GOSUB 19000 

16069 REM no es perfecto pero es rapido 

16070 RETURN 

De esta manera, los circulos se rellenan sin problemas; solo hay fallos en 
figuras con trozos de forma vertical unidos al trazo principal por una recta 
horizontal. La posicion del punto inicial influye mucho sobre cual sera la zona 
que sera coloreada. Si se produce un fracaso en rellenar una zona desde un 
punto, el problema puede quedar solucionado al disponer de un punto 
alternativo. Por eso, nuestra rutina parece representar un buen equilibrio entre 
velocidad y perfeccion. Se puede incorporar al programa principal de la manera 
siguiente: 

15 DIM x(300),y(300) 

5031 IF rell=l AND circ=0 AND rectangulo=0 AND triangulo=0 THEN GOSUB 15000 

6069 REM debe ser la opcion rellenar/no rellenar 

6070 IF rell=l THEN rel 1 =0:rell$=CHR$(241) ELSE rell=l:rell$=CHR$(233) 
6080 LOCATE 17,24 

6090 PRINT rell$; 

6100 RETURN 

8091 IF rell=l THEN x=xant:y=yant:G0SUB 15000 

9061 IF rell=l THEN x=(x+xant)/2:y=(y+yant)/2:G0SUB 15000 

10061 IF rel 1=1 THEN x=(x+xant+xl)/3:y=(y+yant+yl)/3:G0SUB 15000 

10071 REM anadir ademas la rutina de rellenar 

10072 REM desde la linea 15000 a la 19020 

Esta rutina actua en dos formas diferentes. Si la opcion de rellenar esta 
presente cuando se activa una de las opciones circulo, triangulo o rectangulo, la 
correspondiente figura se rellenara al mismo tiempo que se dibuja; el relleno 
comienza en un punto elegido por el ordenador en las lineas 8091, 9061 y 10061. 
Si la opcion de rellenar esta activa sin que lo este ninguna de las tres anteriores, 
la rutina actua a partir de la linea 5031 y sirve para rellenar la zona en cuyo 
interior se encuentre el primer punto que se fije. Por lo tanto, si se desea dibujar 
una recta, habra que desactivar la opcion de rellenar, pues en caso contrario el 
programa interpretara el punto que se fije como punto inicial de rellenado y 
comenzara a llenar la pantalla con el color fijado. 

Ejercicios 

1 . Como el rellenado de figuras se hace dibujando puntos individuales, es facil 
rellenar utilizando combinaciones de colores. Para ello basta con actuar 
sobre el color que se emplea en la linea 18030. Ahada al menu la opcion de 
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rellenar una figura con una mezcla de dos colores elegidos entre los del 

menu. 

2. Un inconveniente del programa es que el rellenado se detiene al encontrar 
un punto de cualquier color que no sea el del fondo. Esto hace imposible 
rellenar figuras dibujadas sobre areas ya coloreadas. Asi, por ejemplo, no 
se podria dibujar una puerta azul sobre una casa pintada de rojo. Cambie 
el programa para que el rellenado se detenga solamente al encontrarse un 
punto de su propio color. 

3. Modifique la rutina de rellenado, en la forma que ya hemos indicado, para 
que trabaje perfectamente con cualquier figura. 



COMO ARCHIVAR SU OBRA MAESTRA 

Ahora que sabemos realizar dibujos de colores, puede ser interesante poder 
archivarlos. En el capitulo 4 lo que haciamos era almacenar las coordenadas de 
los puntos y otras informaciones en matrices que posteriormente se grababan en 
un fichero. Ahora podemos hacer lo mismo, aunque el programa requerira 
modificaciones. Necesitaremos conocer, por ejemplo, si los puntos han servido 
para la opcion circunferencia o la opcion rectangulo, o si una figura va o no 
rellena. 

Una posible alternativa consiste en grabar una copia de toda la pantalla, tal 
como esta en un momento determinado. Si posteriormente queremos ver el dibujo 
o mejorarlo, basta que lo carguemos de nuevo en la pantalla y que continuemos 
dibujando mediante las opciones del menu. Este sistema tiene la ventaja de que 
puede ser implementarlo sin necesidad de alterar la parte del programa que ya 
tenemos. 

El almacenamiento en un fichero de la pantalla es solo un ejemplo particular 
de la posibilidad que tiene el Amstrad de guardar una copia de cualquier parte de 
la memoria. Como ya hemos dicho en otra ocasion, la pantalla no es mas que una 
representation de una zona de memoria RAM. Haciendo una copia de esta zona, 
tendremos en cinta una copia de la pantalla. 

El Amstrad necesita algunas informaciones para grabar una copia de una zona 
de la memoria: la position en que comienza la zona y su tamaho (en bytes). Esta 
information tambien queda grabada, por lo que no se necesita recordarla cuando 
el fichero vuelve a cargarse en el ordenador. 

Las rutinas de grabacion y carga se activan pulsando las teclas 'o' (de 'output) 
para grabacion e T (de 'input') para carga: 

4080 IF respuesta$="i" THEN GOSUB 11000 
4090 IF respuesta$="o" THEN GOSUB 12000 

10999 REM abrir una ventana que no estropee el dibujo 

11000 WINDOW 1,20,24,25:PEN 1 
11010 PRINT "Para carga" 
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11020 INPUT "nombre: ";dibujo$ 
11030 LOAD dibujo$ 
11040 CLS 

11049 REM de nuevo la pantalla normal 

11050 WINDOW 1,20,1,25 
11060 G0SUB 1000 
11070 RETURN 

12000 WINDOW 1,20,24,25:PEN 1 
12010 PRINT "Para grabacion" 
12020 INPUT "nombre: ";dibujo$ 

12029 REM almacenamiento de la pantalla 

12030 SAVE dibujo$,b,&C000,&3FCF 
12040 CLS 

12050 WINDOW 1,20,1,25 
12055 rell=0:G0SUB 7030 
12060 GOSUB 1000 
12070 RETURN 

La subrutina 12000 graba en cinta un fichero con los datos de la pantalla. Es 
importante que el dibujo de la pantalla no se estropee con los mensajes que 
deben escribirse; por eso se reserva una ventana en la parte baja de la pantalla 
que hace desaparecer temporalmente el menu. La linea 12030 graba el fichero: B 
indica un fichero de tipo binario (son los que hay que emplear para grabar zonas 
de memoria), &C000 es la direccion hexadecimal del comienzo de la zona de 
memoria que corresponde a la pantalla y &3FCF su longitud en bytes. Cuando el 
fichero ha sido grabado, el menu reaparece y el programa continua. La subrutina 
1 1000 carga un dibujo; es similar a la rutina de grabacion, salvo por el hecho de 
que el comando LOAD de la linea 11030 es mucho mas simple. Cargar un dibujo 
es muy espectacular: el dibujo no se carga comenzando por arriba, como se 
podria pensar, sino en forma de bandas horizontales que se van haciendo cada 
vez mas gruesas hasta cubrir la pantalla. Esto refleja la complejidad de la 
representation de la pantalla en la memoria, donde posiciones sucesivas de la 
memoria pueden corresponder a zonas distantes de la pantalla. 



Ejercicios 

1. Ahada un 'zoom' a las opciones posibles, de manera que el dibujo pueda 
ser cambiado a una escala diferente. (Para mejorar la velocidad puede venir 
bien no rellenar las figuras.) 

2. Ahada una rutina que permita teclear un texto y colocarlo en la position 
deseada de la pantalla. 

3. Modifique el programa para que admita cualquiera de los colores no 
parpadeantes del modo 0. 
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7. Transformaciones 

TRANSFORMACIONES DE UNA FIGURA 

En otros capitulos nemos estudiado la forma de desplazar puntos en la pantalla 
para situarlos en la posicion mas adecuada. Ahora vamos a ver como se desplaza, 
no un simple punto, sino toda una figura. Ademas, el movimiento no tiene por 
que realizarse necesariamente a base de desplazamientos sucesivos de un punto 
de longitud. Es frecuente tener que realizar una serie de transformaciones de una 
figura. 

Ya sabemos hacer la mas sencilla de las transformaciones, la traslacion. 
Consiste en el movimiento en una direccion. Hasta ahora hemos trasladado 
puntos y caracteres, pero es facil adaptar lo que ya hemos hecho para trasladar 
figuras enteras: 

10 MODE 2 

20 DIM x(100),y(100),z(100) 

69 REM cargar la figura 

70 GOSUB 1000 

74 REM modal i dad grafica 

75 PRINT CHR$(23)CHR$(1); 

79 REM dibujar la figura 

80 GOSUB 2000 

89 REM opcion 

90 GOSUB 3000 
800 MODE 1 
900 END 

999 REM lectura de los datos de la figura 

1000 READ numdelin 

1010 FOR con=0 TO numdelin 
1020 READ x(con),y(con),l (con) 
1030 NEXT 
1040 RETURN 

1498 REM en nuestro ejemplo es un hexagono 

1499 REM sustituya la figura y sus datos por los que usted desee 

1500 DATA 
6,300,100,0,400,100,1,490,190,1,400,290,1,300,280,1,210,190,1,300,100,1 

1999 REM rutina de dibujar/borrar 

2000 MOVE x(0),y(0) 

2010 FOR con=l TO numdelin 

2020 IF l(con)>0 THEN DRAW x(con) ,y(con) ELSE MOVE x(con) ,y(con) 

2030 NEXT 

2040 RETURN 

2993 REM rutina de seleccion de la opcion; 'e' para terminar 
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2994 REM ' t ' para la traslacion 

3000 respuesta$="" 

3010 WHILE respuesta$<>"e" 

3020 respuesta$=LOWER$(INKEY$) 

3030 IF respuesta$="t" THEN GOSUB 4000 

3500 WEND 

3510 RETURN 

3997 REM rutina de traslacion 

3999 REM la traslacion se realiza con las teclas a/z/,/. y 

3999 REM la figura trasladada se fija pulsando la tecla de espacio 

4000 WHILE respuesta$<>" " 

4005 respuesta$=L0WER$(INKEY$) 
xinc=0:yinc=0 

THEN yinc=2:respuesta$="":G0SUB 4500 



4010 
4020 
4030 
4040 
4050 



THEN yinc=-2:respuesta$=' 
THEN xinc=-4:respuesta$ =l 
THEN xinc=4:respuesta$ =' 



IF respuesta$="a 

IF respuesta$="z 

IF respuesta$=", 

IF respuesta$=". 
4100 WEND 

4110 respuesta$="" 
4120 RETURN 

4499 REM efectua la traslacion 

4500 GOSUB 2000 

4510 FOR con=0 TO numdelin 

4520 x=x(con):y=y(con):G0SUB 10000:x(con)=x:y(con)=y 

4530 NEXT 

4540 GOSUB 2000 

4550 RETURN 

9999 REM cambio de datos por traslacion 

10000 x=x+xinc:y=y+yinc 
10010 RETURN 



GOSUB 4500 
GOSUB 4500 
GOSUB 4500 




La traslacion es la transformacion mas sencilla de programar, pero la tecnica 
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que se utiliza no sirve para otras transformaciones, como puede ser la rotacion de 
una figura. Para una serie de transformaciones, el metodo mas generalizado es el 
empleo de matrices. 

Transformaciones matriciales 

Podemos girar, alargar o reflejar cualquier figura multiplicando las coor- 
denadas de todos sus puntos por una matriz apropiada. Vamos a dar un breve 
resumen de la multiplicacion de matrices, aunque no es esencial su comprension 
para la simple utilizacion de los programas que siguen. 

Para multiplicar dos matrices se multiplican los numeros de cada fila de la 
primera matriz por los de cada columna de la segunda, tal como se explica en la 
figura 7.1, y se van sumando los productos obtenidos. Estas sumas de productos 
son los numeros que forman parte de la matriz que constituye el resultado. Las 
matrices pueden ser de tamanos diferentes a los del ejemplo, pero, para calcular 
la transformacion de un punto de una figura, son estos tamanos de matrices los 
que interesan. Esto se debe a que los puntos vienen dados por dos coordenadas. 



(3 5)P \ (3x2 + 5x1 3x4 + 5x2) = (ll 22) 



1 2, 



Figura 7.1. 



Una serie de matrices de 2 x 2 elementos sirve, por ejemplo, para girar un 
punto 10 grados en el sentido de las agujas del reloj, o para alargar una figura en 
un factor de 1.5, etc. El resultado de multiplicar una matriz de coordenadas por 
una matriz de transformacion es, como hemos visto en el ejemplo, otra matriz de 
coordenadas. Si la matriz que resulta en el ejemplo la multiplicamos por la matriz 
de una nueva transformacion, obtenemos el resultado de aplicar a un punto las 
dos transformaciones sucesivas; esto es lo que hemos hecho en la figura 7.2. 



(11 22) l l 2 (11x1 + 22x3 Ilx2 + 22x2) = (77 66) 

Figura 7.2. 

De hecho, hay una manera de agilizar el proceso. Se pueden multiplicar 
primero las dos matrices de transformacion y utilizar el resultado para 
transformar el punto inicial. El resultado es el mismo que el de las dos 
transformaciones sucesivas, como muestra la figura 7.3. 
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3 5 



2 4 1 2 = 2x1 + 4x3 2x2+4x2 
1 2/\3 2) \ 1x1 + 2x3 1x2+2x2 

'14 \2 




= 3x14+5x7 3x12+5x6 = 77 66 



Figura 7.3. 

El principal inconveniente que tiene el metodo matricial es que no se puede 
representar la traslacion utilizando una matriz 2 x 2, lo que hace que este 
tratamiento no pueda ser totalmente general. Ya nemos visto que es posible 
reducir transformaciones compuestas a una sola matriz, pero las traslaciones 
quedan fuera del sistema. Utilizando matrices 3 x 3 es posible representar las 
transformaciones, incluyendo ahora las traslaciones. 

Como ya estamos acostumbrados a manejar la traslacion de otra manera, 
vamos a quedarnos con las matrices 2x2, aunque tengamos que tratar la 
traslacion de forma diferente. 



Rotacion 

Para la rotacion de un determinado angulo hay dos matrices posibles, segun que 
la rotacion se haga en un sentido o en el otro. La figura 7.4 ilustra acerca de 
estas dos matrices. 





r - 



-f ■ 

3 



™r- 
5 







El triangulo 1 se convierte en el 2 al girarlo 30 grados en el sentido de las 
agujas del reloj: 
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3 4 1 

4 4 
3 6i 



'cos 30 — sen30 ] 
\sen 30 cos 30 i 



4.6 2.01 

5.5 1.5 

5.6 3.7/ 



El triangulo 1 se convierte en el 3 al girarlo 20 grados en sentido contrario a 
las agujas del reloj: 



Is 


4\ 


4 


4 


\3 


6/ 



cos 20 sen 20) 
— sen20 cos 20 j 



/l.5 


4.8\ 


2.4 


5.1 


\0.8 


6.7/ 



En general, la rotacion de grados en el sentido del reloj viene dada por: 



\ cosa —sena\ I \ 

x y)\ )={xcosa+ysena —xsena + ycosaj 

\sena cosa / 



y la rotacion de grados en sentido contrario al reloj, por: 



/ \ cos « sen a \_l \ 

\x yj\ ]={xcosa — ysena xsena + ycosaj 

\ — sena cos a J 

Figura 7.4. 

Si comparamos los resultados de la multiplicacion, observamos que se 
diferencian solamente en los signos. Si definimos la variable rotacion para que 
valga 1 cuando la rotacion es en el sentido de las agujas del reloj, y -1 cuando el 
sentido es el opuesto, obtenemos una misma ecuacion para el giro, 
independientemente de su sentido; podemos ver esto en la figura 7.5. 

xNuevo = xViejo ■ cos a — rotacion ■ yViejo ■ sen a 
yNuevo = — rotacion ■ x Viejo ■ sen a + y Viejo • cos a 

Figura 7.5. 

Se puede generalizar el programa anterior con la posibilidad de realizar 
tambien rotaciones: 
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2995 REM 'r' para la rotacion 

3040 IF respuesta$="r" THEN GOSUB 5000 

4995 REM rutina de rotacion 

4998 REM la rotacion es de 5 grados en el sentido del reloj 

4999 REM pero puede cambiar estos datos 

5000 angulo=5 
5010 rotacion=l 

5199 REM barra la figura anterior 

5200 GOSUB 2000 

5299 REM coeficientes de la transformacion 

5300 DEG 

5310 xtransl=C0S(angulo) :ytrans2=xtransl:xtrans2=rotacion*SIN(angulo) :ytransl=- 
xtrans2 

5499 REM calcula la figura girada 

5500 GOSUB 11000 

5599 REM dibuja la figura girada 

5600 GOSUB 2000 

5699 respuesta$="" 

5700 RETURN 

10999 REM cambio de datos por transformacion mat ricial 

11000 FOR con=0 TO numdelin 
11010 almacen=x(con) 

11020 x(con)=x(con)*xtransl+y(con)*xtrans2 
11030 y(con)=almacen*ytransl+y(con)*ytrans2 
11040 NEXT 
11100 RETURN 




Observese que la rotacion se produce alrededor del punto (O, O). Es mejor 
poder seleccionar el centro de giro, lo que resulta sencillo de programar: 



30 xcentro=320:ycentro=200 
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4996 REM el centro de la rotacion se selecciona con a/z/,/. y se fija 

4997 REM pulsando la tecla de espacio 

5099 REM fijacion del centro de la rotacion 

5100 GOSUB 15000 
5500 GOSUB 12000 

11999 REM rutina para transformar las coordenadas de la figura por cualquier 
transformacion matricial con centro arbitrario 

12000 xinc=-xcentro;yinc=-ycentro 
12010 FOR con=0 TO numdelin 

12020 x=x(con):y=y(con):G0SUB 10000:x(con)=x:y(con)=y 

12030 NEXT 

12040 GOSUB 11000 

12050 xi nc=xcentro :yi nc=ycentro 

12060 FOR con=0 TO numdelin 

12070 x=x(con):y=y(con):G0SUB 10000:x(con)=x:y(con)=y 

12090 NEXT 

12100 RETURN 

14999 REM rutina de fijacion de un centro de la transformacion 

15000 TAG 

15004 REM correcciones para centrar un caracter en un punto; la izquierda debe 
ser 8 en modo y 4 en modo 1 

15005 correcci oni zqui erda=2 : correcci onarri ba=4 

15010 MOVE xcentro-correccionizquierda,ycentro+correccionarriba:PRINT CHR$ (129) ; 

15100 WHILE respuesta$<>" " 

15110 respuesta$=L0WER$(INKEY$) 

15115 xinc=0:yinc=0 

15120 IF respuesta$="a" THEN yinc=2:respuesta$="" :G0SUB 15500 

15130 IF respuesta$="z" THEN yinc=-2:respuesta$="":G0SUB 15500 

15140 IF respuesta$=\" THEN xinc=-4:respuesta$="":G0SUB 15500 

15150 IF respuesta$="." THEN xinc=4:respuesta$="" :G0SUB 15500 

15200 WEND 

15210 respuesta$="" 

15220 MOVE xcentro-correccionizquierda,ycentro+correccionarriba:PRINT CHR$ (129) ; 

15230 RETURN 

15499 REM borrar antiguo centro y dibujar el nuevo 

15500 REM 

15510 MOVE xcentro-correcci oni zqui erda ,ycentro+correcci onarri ba : PRINT 
CHR$(129) ; :xcentro=xcentro+xinc:ycentro=ycentro+yinc:MOVE xcentro- 
correcci oni zqui erda ,ycentro+correcci onarri ba : PRINT CHR$ (129) ; 
15600 RETURN 
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Ampliacion y reduccion 

Ya vimos antes que era facil ampliar o reducir una figura, pero entonces no 
teniamos control sobre el centro de la ampliacion. Con el metodo matricial 
podemos introducir ampliaciones diferentes en la direction de cada eje, lo que 
permite estirar las figuras en la direction de uno de los ejes; los aspectos 
formales se pueden ver en la figura 7.6. 



8 

7 

t- 

II 
* 

1 
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-r- 



1— 



a 



B 
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El triangulo 1 se transforma en el 2 mediante: 



5 if 2 °) = 


(6 2 
10 2 


I 6 4/ 



Con diferentes valores en la diagonal se obtiene un alargamiento en la 
direccion de un eje: 




y 3 3' 

5 3 

\3 6j 



De manera general, los alargamientos y reducciones vienen dados por: 



[x y)l n \ = [nl'X n2-y) 



Figura 7.6. 



Es facil ariadir esta posibilidad a nuestro programa: 



2996 
2997 
3050 
3060 
5995 
5996 
6010 
6098 
6099 
6100 
6199 
6200 
6299 
6310 
6399 
6400 
6499 
6500 
6599 
6600 



REM ' g ' para alargamiento 

REM ' p ' para reduccion 

IF respuesta$="g" THEN G0SUB 6000 

IF respuesta$="p" THEN G0SUB 6100 

REM rutina de alargamiento reduccion 

REM el centro se selecciona con a/z/,/ 

GOTO 6200 

REM esta es la rutina de reduccion 

REM reduccion a escala 0.9 en ambos ejes 

escalax=0.9:escalay=0.9 

REM fijacion del centro de alargamiento/reduccion 

G0SUB 15000 

REM borra la figura anterior 

G0SUB 2000 

REM coeficientes de la transformacion 

xtransl=escalax:ytrans2=escalay:xtrans2=0:ytransl=0 

REM calcula la figura transformada 

GOSUB 12000 

REM dibuja la figura transformada 

GOSUB 2000 



a escala 
, y se fija 



cambie el coeficiente si lo desea 
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6699 respuesta$= 

6700 RETURN 




Simetria 

La simetria (o reflexion) sobre el eje X o el eje Y se puede llevar a cabo con las 
matrices de la figura 7.7. 



( x y )l l ° \=( x -y) (simetria de eje X) 
[x y){ \=(-x y) (simetria de eje Y) 



Figura 7.7. 

Como ocurria con la rotacion, las dos matrices son en esencia una sola. Para 
ver el efecto de la simetria es necesario trasladar los ejes, pues de lo contrario la 
figura resultante se sale de la pantalla. 

2998 REM 'f para reflexion 

3070 IF respuesta$="f" THEN GOSUB 7000 

6995 REM rutina de reflexion sobre un eje 

6996 REM la reflexion es sobre un eje vertical o sobre un eje horizontal 

6997 REM que pasan por el punto que se desee 

6998 REM el punto se selecciona con a/z/,/. y se fija 

6999 REM al pulsar 'x' o 'y' , lo que selecciona ademas el eje 

7000 GOSUB 16000 
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7099 REM coeficientes de la transformacion 

7100 IF respuesta$="x" THEN xtransl=l:ytrans2=-l :xtrans2=0:ytransl=0 ELSE 
xtransl=-l :ytrans2=l :xtrans2=0:ytransl=0 

7199 REM borra la figura anterior 

7200 GOSUB 2000 

7299 REM calcula la figura transformada 

7300 GOSUB 12000 

7399 REM dibujo de la figura reflejada 

7400 GOSUB 2000 

7499 respuesta$="" 

7500 RETURN 

15999 REM rutina de fijacion de un centro y un eje de la transformacion 

16000 TAG 

16004 REM correcciones para centrar un caracter en un punto; la izquierda debe 
ser 8 en modo y 4 en modo 1 

16005 correcci oni zqui erda=2 : correcci onarri ba=4 

16010 MOVE xcentro-correccionizquierda,ycentro+correccionarriba:PRINT CHR$ (129) ; 

16100 WHILE respuesta$<>"x" AND respuesta$<>"y" 

16110 respuesta$=L0WER$(INKEY$) 

16115 xinc=0:yinc=0 

16120 IF respuesta$="a" THEN yinc=2:respuesta$="" :G0SUB 16500 

16130 IF respuesta$="z" THEN yinc=-2:respuesta$="":G0SUB 16500 

16140 IF respuesta$=\" THEN xinc=-4:respuesta$="":G0SUB 16500 

16150 IF respuesta$="." THEN xinc=4:respuesta$="" :G0SUB 16500 

16200 WEND 

16220 MOVE xcentro-correccionizquierda,ycentro+correccionarriba:PRINT CHR$ (129) ; 

16230 RETURN 

16499 REM borrar antiguo centro y dibujar el nue vo 

16500 REM 

16510 MOVE xcentro-correccionizquierda,yce ntro+correcci onarri ba: PRINT 
CHR$ (129) ; :xcentro=xcentro+xinc:ycentro=ycentro+yinc:MOVE xcentro- 
correcci oni zqui erda ,ycentro+correcci onarri ba : PRINT CHR$ ( 129) ; 
16600 RETURN 
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La simetria sobre rectas diferentes de los ejes es mas delicada y requiere otras 
transformaciones. 

Cizalladura 

Se trata de un movimiento en el que el desplazamiento de cada punto depende 
de su distancia al eje del movimiento: 

2999 REM 'c' para cizallamiento 

3080 IF respuesta$="c" THEN GOSUB 8000 

7995 REM rutina de cizallamiento en la direccion de un eje 

7996 REM el eje es vertical u horizontal 

7997 REM pasando por el punto que se desee 

7998 REM el punto se selecciona con a/z/,/.y se fija 

7999 REM al pulsar 'x' o "y ' , lo que selecciona ademas el eje 

8000 GOSUB 16000 

8099 REM coeficientes de la transformacion 

8100 xtransl=l:ytrans2=l 

8110 IF respuesta$="x" THEN ytransl=l:xtrans2=0 ELSE xtrans2=l:ytransl=0 

8199 REM borra la figura anterior 

8200 GOSUB 2000 

8299 REM calcula la figura transformada 

8300 GOSUB 12000 

8399 REM dibujo de la figura transformada 

8400 GOSUB 2000 

8499 respuesta$="" 

8500 RETURN 
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Ejercicios 

1. Todas las transformaciones del programa se realizan sobre una figura 
extraida de un DATA. Anada una rutina al programa que le permita dibujar 
una figura y luego transformarla. 

2. Modifique el programa para que sea posible que la figura inicial per- 
manezca en la pantalla junto a la transformada. (Esto puede producir 
dibujos interesantes.) 

3. Las transformaciones matriciales se pueden utilizar en la obtencion de 
formas especiales, como las que obtuvimos en el capitulo 4 mediante 
rotacion repetida y alargamiento. Escriba un programa que permita 
especificar una serie de transformaciones sucesivas a realizar con una 
figura. Haga que se pueda elegir el numero de veces que se repetira cada 
transformacion. Tras introducirle estos datos, el ordenador debera realizar 
las operaciones indicadas, dibujando las figuras que vayan resultando. 
Haga que cada figura se dibuje en un color, para obtener mejores efectos. 

4. Los programas de CAD (Computer- Aided Design o "Diserio asistido por 
ordenador") contienen un menu de figuras diversas. Cuando el usuario 
elige una de ellas con el cursor, la figura queda pegada al cursor y se 
desplaza con el hasta que la figura se fija en el lugar deseado. Escriba un 
programa sencillo para CAD que permita simplificar el dibujo de una casa. 
Incluya como figuras varios tipos de puertas y ventanas. (Anada detalles 
que distingan cada tipo, pero no tantos como para que resulte demasiado 
lento el dibujo y borrado de las figuras.) 
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La calidad de la presentation en la pantalla es fundamental para muchos 
prog ra mas. Este libro ensefia a aproveehar plenamente las exceientes 
funciones graficas del Amstrad. En los ejemplos se incluyen rutinas que 
el lector puede incorporar facilmente a sus proptos prog rl mas. 

Entre los temas tratados se encuentran los juegos de tipo wmaquinas tra- 
gaperras», ia animation de figuras sencilias, realization de imagenes en 
color y su grabacion en cinta, diseno de diagramas de barras y de secto- 
res, cambios de escala y transformation de figuras y muchas otras apllca- 
cfones interesantes. En todos los capftulos se dan sugerentias para am- 
piiar y mejorar !os programas de ios ejemplos. 
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